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APPENDIX 

The following appendicies are being filed with this application, the entire 
contents of which are herein incorporated by reference for all purposes: 
Appendix A (88 pages) - User Interface; 
Appendix B (13 pages) - Database Tables; 
Appendix C (200 pages) - ASP Source Code; 
Appendix D (142 pages) - Source Code; and 
Appendix E (58 pages) - Users Manual. 

BACKGROUND OF THE INVENTION 

The present invention relates generally to network based marketing 
techniques, and specifically to techniques for managing and analyzing subscriber information 
in a networked computer environment. 

Few could foresee the rapid expansion of direct marketing campaigns just a 
few years ago. Direct marketers use a variety of marketing techniques to provide information 
about new products and services to consumers. Direct mail, intemet advertising, television, 
radio, newspaper, and magazine advertising provide channels of coromunication for product 
information to consumers. Surveys, purchasing information, transaction information and 
others provide information about consumer behaviour to the direct marketer. Computers and 
televisions that now have a place in our homes and offices enable product manufacturers, 
wholesalers and retailers to "take their case directly to the public," by providing a 
communications medium with direct access to the consumer. Never before have consumers 



been offered such a wide variety of choices in the products for their homes, work and 
recreation. 

As computer automation continues to provide an ever increasing access to 
consumers, marketers have discovered that conventional marketing information methods do 
5 not readily scale to the exponential proliferation of information accompanying direct 
marketing campaigns. For example, results from multiple targeted marketing campaigns 
must be sorted, assimilated, analyzed and managed on a continuing basis. 

Conventional techniques for information management exhibit inefficiencies 
when applied to the subscription marketing campaign field. For example, conventional 
10 techniques are frequently embodied in specialized software, or require custom solutions. 
Many conventional approaches require the user to learn and use ad hoc queries. 

What is really needed are subscription information management techniques 
designed to meet the needs of subscription marketers. 

1 5 SUMMARY OF THE INVENTION 

The present invention provides network based reporting techniques designed 
to meet the needs of subscription based marketers. Clients access, edit and report on their 
subscriber database using the Internet, for example. In a representative embodiment, a 
plurality of client computers connect to the Intemet using a local area network (LAN), for 

20 example. The client computers pass security protocols before gaining access to web, 

application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormalized to provide 
the capability to generate reports based upon relatively large amounts of information. 

In a representative embodiment, the present invention provides a method for 

25 analyzing subscription information. The method comprises receiving a plurality of 
subscription information and archiving the plurality of subscription information into a 
repository. Retrieving from the repository a plurality of selected subscription information 
and transforming the plurality of selected subscription information into transition table format 
information are also part of the method. Further, the method includes populating a facts 

30 database with the transition format information to produce one or more facts tables with a 

summarization of the transition format information. Denormalizing the summarization of the 
transition format information to produce a plurality of denormalized information is also part 
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of the method. The method also includes providing a report based upon the denormalized 
information. 

In a specific embodiment, the denormalization comprises populating selected 
information from one or more facts tables to a key table. The facts tables are stored in a facts 
5 table database, for example. The key table is stored in a grouping tables database. The 
plurality of facts tables are one of a source category table, a source table, a campaign table, 
and a panels table. 

In a specific embodiment, the method further comprises receiving input of a 
criteria for one or more reports and providing the report based upon the denormalized 

10 information according to the the criteria. In another specific embodiment, the method further 
comprises receiving input of a criteria for one or more tables and configuring the one or more 
tables based upon the the criteria. 

In another specific embodiment, the method further comprises receiving input 
of a usemame and a password and verifying whether the input of the usemame and a 

15 password corresponds to a user authorized to access reporting procedures. If the user is 
determined to be authorized, access to reporting procedures is provided to the user. In a 
specific embodiment, the method further comprises verifying whether the input of the 
usemame and a password corresponds to a user authorized to access administrative 
procedures. If the user is determined to be authorized access to administrative procedures is 

20 provided to the user. 

Alternative embodiments include an apparatus having a plurality of means for 
performing the above described method. 

In another representative embodiment, the present invention provides a 
computer program product for analyzing subscription information. The computer program 

25 product comprises a variety of software program code. For example, code that receives a 
plurality of subscription information and code that archives the plurality of subscription 
information into a repository are included in the program product. Code that retrieves fi-om 
the repository a plurality of selected subscription information and code that transforms the 
plurality of selected subscription information into transition table format information are also 

30 part of the program product. The program product also includes code that populates a facts 
database with the transition format information to produce one or more facts tables with a 
simmiarization of the transition format information and code that denormalizes the 
summarization of the transition format information to produce a plurality of denormalized 
information, the denormalization comprising populating selected information from the facts 
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tables, stored in a facts table database, to a key table, stored in a grouping tables database. 
Further, code that provides a report based upon the denormalized information is also included 
in the program product. A computer readable storage medium for holding the codes also 
comprises the program product. 
5 In a yet further representative embodiment, the present invention provides a 

system for analyzing subscription information. The system comprises a variety of 
components. For example, one or more clients are connected to a web server by a computer 
network. An application server and a database server are connected to the web server by a 
communication medium, such as a computer network, for example The clients receive 

10 subscription information and forward the subscription information via the web server and the 
apphcation server to the database server, which archives subscription information into a 
repository. The application server retrieves selected subscription information from the 
repository and transforms the selected subscription information into transition table format 
information. The database server populates a facts database with the transition format 

1 5 information in order to produce one or more facts tables with a summarization of the 

transition format information. The application server denormalizes the summarization of the 
transition format information in order to produce denormalized information. This 
denormalization comprises populating selected information from one or more facts tables, 
which can be stored in a facts table database, into a key table, which is stored in a grouping 

20 tables database, for example. The application server provides a report based upon the 
denormalized information. 

Numerous benefits are achieved by way of the present invention over 
conventional techniques. The present invention can provide network based reporting 
techniques designed to meet the needs of subscription marketers. Embodiments according to 

25 the present invention can provide real-time marketing information analysis techniques, which 
can provide information consumers within a business enterprise with up to the moment 
information and analysis for mission critical applications. 

In specific embodiments according to the present invention, denormalization 
and report optimizing processing provides improved reporting capabilities by reducing at 

30 least one of a number of joins of database tables that must be made and a number of records 
that must be reported. These reductions enable specific embodiments to provide reports more 
quickly that conventional techniques. Specific embodiments deliver reports over computer 
networks, such as the Internet. Further, specific embodiments can produce a report from a 
relatively large number of transactions within a reasonable delay time. 
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These and other benefits are described throughout the present specification, A 
further understanding of the nature and advantages of the invention herein may be reahzed by 
reference to the remaining portions of the specification and the attached drawings. 



5 BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 depicts a simpHfied block diagram of a distributed computer network 
which may incorporate an embodiment of the present invention; 

Fig, 2 depicts a simplified block diagram of a computer system which may 
incorporate an embodiment of the present invention; 
10 Fig. 3 illustrates a diagram of representative processing, manipulating, storing 

and loading of data in a specific embodiment according to the present invention; 

Fig. 4 illustrates a diagram of representative data acquisition, processing and 
loading in a specific embodiment according to the present invention; 

Figs. 5 A-5B illustrate diagrams of a representative online administrative 
15 system in a specific embodiment according to the present invention; 

Fig. 6 illustrates a diagram of a representative administrative framework that 
provides a grouping hierarchy in a specific embodiment according to the present invention; 

Fig. 7 illustrates a diagram of representative reporting process in a specific 

embodiment; 

20 Fig. 8 illustrates a diagram showing a representative hyperlink chain linking 

reports in a specific embodiment according to the present invention; 

Fig. 9 illustrates a diagram of a representative access security for a database 
and reporting system in a specific embodiment according to the present invention; 

Fig. 10 illustrates a diagram of a representative process for denormahzing 
25 database tables in a specific embodiment according to the present invention; and 

Fig. 11 illustrates a diagram of a representative process for optimizing report 
generation in a specific embodiment according to the present invention. 

DESCRIPTION OF THE SPECIFIC EMBODIMENTS 

30 The present invention provides network based reporting techniques designed 

to meet the needs of subscription based marketers. Clients access, edit and report on their 
subscriber database using the Internet, for example. In a representative embodiment, a 
plurality of client computers connect to the Internet using a local area network (LAN), for 
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example. The client computers pass security protocols before gaining access to web, 
application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormaUzed to provide 
the capability to generate reports based upon relatively large amounts of information. 
5 Techniques are discussed for managing the process of information gathering, 

analysis and storage. Fig. 1 is a simplified block diagram of a distributed computer network 
10 which may incorporate an embodiment of the present invention. Computer network 10 
includes a number of computer systems 12, 15, 17, 14-1, 14-2, and 14-3. Computer systems 
12, 14-1, 14-2, and 14-3 are coupled to a communication network 16 via a plurality of 

1 0 communication links 18, The computer systems include a plurality of client computer 
systems 14-1, 14-2, and 14-3, and a plurality of server computer systems 12, 15, and 17. 
However, in particular embodiments, two or more of server systems 12, 15, and 17 may co- 
reside on a single computer. Ghent systems 14-1, 14-2, or 14-3 typically request information 
from a server computer system, which performs processing in response to the client request 

15 and provides the requested information to the client systems. For this reason, servers 
typically have more computing and storage capacity than client systems. However, a 
particular computer system may act as both as a client or a server depending on whether the 
computer system is requesting or providing information. 

Communication network 16 provides a mechanism for allowing the various 

20 components of distributed network 10 to communicate and exchange information with each 
other. Communication network 16 may itself be comprised of many interconnected computer 
systems and communication links. Communication links 18 may be hardwire links, optical 
links, satellite or other wireless communications links, wave propagation links, or any other 
mechanisms for communication of information. While in one embodiment, communication 

25 network 16 is the Internet, in other embodiments, communication network 16 may be any 
suitable computer network. An optional firewall (not shown) having a port for connecting 
thereto may be provided between the server computer 12 and communications network 16. 
Distributed computer network 10 depicted in Fig. 1 is merely illustrative of an embodiment 
incorporating the present invention and does not limit the scope of the invention as recited in 

30 the claims. One of ordinary skill in the art would recognize other variations, modifications, 
and altematives. For example, more than one server system 12 may be coupled to 
communication network 16. 

Computer server systems 12, 15, and 17 may be configured to perform a 
plurality of functions according to the teachings of the present invention. These functions are 
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typically performed by software code modules executing on the computer server systems 12, 
15, and 17, The functions may also be performed by hardware modules coupled to server 
systems 12, 15, and 17, or by a combination of software and hardware modules. Functions 
performed by computer server systems 12, 15 and 17 include storing and retrieving 
5 information in database 109, and performing administrative functions, report generation 
functions, and other functions according to the teachings of the present invention. Details 
related to the various fimctions performed by server systems 12, 15 and 17 are described 
below. 

Ghent systems 14-1, 14-2, or 14-3 are used to interact with one or more of 

10 server systems 12, 15 and 17 using a program called a browser. The browser may be one of 
Internet Explorer™, by Microsoft^^, or Navigator™ by Netscape'^^, or the like, but in a 
presently preferred embodiment, the browser emprises support for HTML 2.0 or higher. 
Active X and/or Java functions. For example, cUent systems 14-1, 14-2, or 14-3 may be used 
by users to access administrative functions and features onhne. Ghent systems 14-1, 14-2, or 

15 14-3 may also be used by users to obtain reports using online statistical report capabilities of 
specific embodiments. Once a user has provided a unique user identification and password, 
the user may use chent system 14-1, 14-2, or 14-3 to participate in administrative and report 
generating capabilities of server systems 12, 15 and 17. Details related to the various 
functions performed by chent systems 14-1, 14-2, or 14-3 are described below. 

20 According to the teachings of the present invention, computer system 12 is a 

web server system responsible for providing web pages to users at clients 14-1, 14-2 and 14- 
3, and storing uiformation received from the clients in a format which allows later query or 
retrieval of the information. In a presently preferred embodiment, web server system 12, 
comprises Microsoft™ Internet Information Services (IIS) and Seagate™ Grystal Reports. 

25 The term "server system" as used in this application may refer to a single server system as 
depicted in Fig. 1, or may refer to one or more server systems distributed within computer 
network 10. If the functions are distributed across a plurality of computers, each comprises a 
copy of Microsoft™ Internet Information Services (IIS). Accordingly, functions or tasks 
performed by the present invention may be distributed to one or more servers coupled to 

30 communication network 16, According to a specific embodiment, the servers may be 

isolated behind firewalls for security purposes and communication between the servers may 
be encoded and encrypted. 

According to the teachings of the present invention, computer server system 
1 5 is an application server system responsible for providing administrative and reporting 
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capabilities. Application server system 15 comprises one or more administrative processes 
and one or more reporting processes. Administrative processes provide users with 
capabilities to create and edit database tables that contain marketing information and the like, 
provide security and access control functions, track usage, and the like. Reporting processes 
5 provide users with the capabilities to generate, and customize reports that provide insight into 
marketing information and the like. The administrative processes and reporting processes 
may be implemented in a variety of different ways, but in a presently preferred embodiment 
are implemented using Microsoft^^ Visual Basic (VB) and PERL script programs (scripts). 

According to the teachings of the present invention, computer system 17 is a 

10 database server system responsible for providing database support. In a specific embodiment, 
the transaction information may be stored in a database 109 coupled to database server 
system 17. The term "database 109" as used in this application may refer to a single 
information store or to a plurality of information stores distributed within computer network 
10. For example, database 109 be locally coupled to database server system 17 or may be 

15 distributed across computer network 10 and accessed by database server system 17 via 
communication network 16. The database 109 may be a relational database, an object- 
relational database, an object-oriented database, a knowledge base, a text file, or any other 
way to store information. However, in a presently preferred embodiment, the database server 
system 17 comprises Oracle™ database and compatible hardware. In a specific embodiment 

20 of the present invention, database 109 is a relational database configured to store information 
according to a database schema. The information stored in database 109 may also be used to 
keep track of the various steps of the information analysis and storage process. For example, 
the status or progress of any particular step of the information acquisition process can be 
ascertained firom the information stored in database 109. It should be apparent that although 

25 Fig. 1 depicts database 109 as a single entity, in a specific embodiment of the present 
invention, database 109 may comprise a plurality of databases. 

Fig, 2 is a simplified block diagram of an exemplary computer system 20 
capable of embodying one or more of client computer systems 14-1, 14-2, and 14-3, and 
server computer systems 12, 15 and 17 according to the present invention. Computer system 

30 20 typically includes at least one processor 24, which communicates with a number of 

peripheral devices via bus subsystem 22. These peripheral devices typically include a storage 
subsystem 32, comprising a memory subsystem 34 and a file storage subsystem 40, user 
interface input devices 30, user interface output devices 28, and a network interface 
subsystem 26, The input and output devices allow user interaction with computer system 20. 
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It should be apparent that the user may be a human user, a device, another computer, and the 
like. Network interface subsystem 26 provides an interface to outside networks, including an 
interface to commimication network 16, and is coupled via communication network 16 to 
corresponding interface devices in other computer systems. 
5 User interface input devices 30 may include a keyboard, pointing devices such 

as a mouse, trackball, touchpad, or graphics tablet, a scanner, a barcode scanner for scanning 
article barcodes, a touchscreen incorporated into the display, audio input devices such as 
voice recognition systems, microphones, and other types of input devices. In general, use of 
the term "input device" is intended to include all possible types of devices and ways to input 

10 information into computer system 20 or onto computer network 16. 

User interface output devices 28 may include a display subsystem, a printer, a 
fax machine, or non- visual displays such as audio output devices. The display subsystem 
may be a cathode ray tube (CRT), a flat-panel device such as a liquid crystal display (LCD), 
or a projection device. The display subsystem may also provide non-visual display such as 

15 via audio output devices. In general, use of the term "output device" is intended to include 
all possible types of devices and ways to output information from computer system 20 to a 
human or to another machine or computer system. 

Storage subsystem 32 stores the basic programming and data constructs that 
provide the functionality of the various systems embodying the present invention. For 

20 example, the various modules implementing the functionality of the present invention may 
be stored in storage subsystem 32. These software modules are generally executed by 
processor(s) 24. In a distributed environment, the software modules may be stored on a 
plurality of computer systems and executed by processors of the plurality of computer 
systems. Storage subsystem 32 also provides a repository for storing the various databases 

25 storing information according to the present invention. Storage subsystem 32 typically 
comprises memory subsystem 34 and file storage subsystem 40. 

Memory subsystem 34 typically includes a nimiber of memories including a 
main random access memory (RAM) 38 for storage of instructions and data dxaring program 
execution and a read only memory (ROM) 36 in which fixed instructions are stored. File 

30 storage subsystem 40 provides persistent (non- volatile) storage for program and data files, 
and may include a hard disk drive, a floppy disk drive along with associated removable 
media, a Compact Digital Read Only Memory (CD-ROM) drive, an optical drive, removable 
media cartridges, and other like storage media. One or more of the drives may be located at 
remote locations on other connected computers at another site on communication network 16. 
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Infonnation stored according to the teachings of the present invention may also be stored by 
file storage subsystem 40. 

Bus subsystem 22 provides a mechanism for letting the various components 
and subsystems of computer system 20 communicate with each other as intended. The 
5 various subsystems and components of computer system 20 need not be at the same physical 
location but may be distributed at various locations within distributed network 10. Although 
bus subsystem 22 is shown schematically as a single bus, alternate embodiments of the bus 
subsystem may utilize multiple busses. 

Computer system 20 itself can be of varying types including a personal 

10 computer, a portable computer, a workstation, a computer terminal, a network computer, a 
television, a mainframe, or any other data processing system. Due to the ever-changing 
nature of computers and networks, the description of computer system 20 depicted in Fig. 2 is 
intended only as a specific example for purposes of illustrating the preferred embodiment of 
the present invention. Many other configurations of a computer system are possible having 

15 more or less components than the computer system depicted in Fig. 2. Client computer 
systems 14 and one or more of server computer systems 12, 15 and 17 generally have the 
same configuration as shown in Fig. 2, with the server systems generally having more storage 
capacity and computing power than the client systems. 

Fig. 3 illustrates a diagram of representative processing, manipulating, storing 

20 and loading of data in a specific embodiment according to the present invention. Fig, 3 
illustrates a plurality of input data 101, comprising fulfillment data 101a, production data 
101b, and cUent data 101c. Fulfillment data 101a is produced by a business process used to 
process an order or transaction resulting from a subscription campaign, for example. The 
fulfillment data 101a can be created by an "in-house" system operated by a subscription- 

25 based business or an outside service provider. Fulfillment data includes transaction and 

summary level statistical and coded information related to subscription orders. Fulfillment 
data 101a may be in a variety of formats in specific embodiments, but is preferably 
alpha/numeric. Examples of data feed elements include sourcekey identifiers, subscription 
order quantities, dollar values, demographics, and the like. 

30 Production data 101b is produced by a business process (complimentary to 

fulfillment) having a function to physically manage an order shipment process and capture 
information related to shipment transactions. This type of process may be managed by a 
subscription-based business, or an outside service provider. Production data 101b may be in 
a variety of formats in specific embodiments, but is preferably alpha/numeric. Examples of 
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production data include product shipped, shipment date, location, subscription term, and the 
like. 

Client data 101c comprises data related to a subscription transaction or data 
that is suppHed by a customer. Client data 101c is supplied either directly from a 
5 subscription-based business or via a service provider. Examples include demographics, web- 
hit information, address information, list information, and the like. 

Fig, 3 illustrates a data loading process 102 comprising of the archiving of 
low-level input files and the processing of these files. Data loading process 102 processes 
input files 101 to produce one or more transition tables 103. In a specific embodiment, the 

1 0 data loading appUcation is implemented using the PERL programming language, data 

transformation service (DTS) and structured query language (SQL) loader script programs. 
During data loading process 102, input data 101 in import files is identified, validated and 
formatted. The transition tables 103 store input data 101 passed from the SQL loader 
program used in data loading process 102. A plurality of stored procedures 104 are invoked 

15 by the data loading process 102, in order to run summary procedures against the transition 
tables 103. These summary procedures update, replace or append summary tables 105 used 
for administrative or reporting purposes. Summarized data tables are referred to as "facf 
tables. 

The fact tables 105 store information summarized from transition tables 103. 

20 Fact tables 105 store statistical information that is used for administrative and reporting 

purposes, and the like. A plurality of administrative procedures 106 apply business logic to 
client data in order to create meaningful management information. Administrative 
procedures 106 are used to make changes to groupings tables 107. Administrative procedures 
106 comprise analytic processes that add, edit or delete records in groupings tables 107, and 

25 are executed against the fact tables 105 and administrative lookup tables 109, using 
categories pre-defined in the groupings tables 107, In a specific embodiment, these 
categories correspond to an administrative hierarchy. 

Lookup tables 109 can be any of a pre-defined look up table, and a look up 
table defined by a cUent, Predefined lookup tables include, for example: a corporation, a 

30 division, a group, a product, and a source category. CUent defined look up tables include: a 
campaign type, a campaign status, a panel type, a panel subtype, a package, a list category, a 
list name, a list segment, a source ID description. Lookup tables 109 are used to translate 
codes or values in fact tables 105, or to apply group categories in grouping tables 107. 
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Groupings tables 107 store information about subscription marketing 
campaigns and the like. Groupings tables 107 contain one or more field categories that 
reflect an administrative hierarchy of the cUent's business process. The groupings tables 107 
provide a means of categorizing data related to subscription marketing campaigns and 

5 relating these groupings to statistical facts tables 105. Facts tables 105, groupings tables 107, 
and administrative lookup tables 109 are stored in the database server system 17. In specific 
embodiments, facts tables 105, groupings tables 107, and administrative lookup tables 109 
comprise a single database, or may be stored separately in a plurality of databases. 

Clients may use online administrative functions that interact with facts tables 

10 105, administrative groupings tables 107, and administrative lookup tables 109 via a web 
browser operative on cHent system 14-1, which is coupled to web server system 12. Web 
server 12 comprises a computer and computer software that, together with the web browser 
operative on client 14-1, enable users to view HTML documents, and the like. Web server 12 
is coupled to appUcation server 15. Web server 12 and appUcation server 15 can be provided 

15 by an appUcation service provider (ASP) web-site, for example. In specific embodiments, 
chents may use online reporting functions that interact with facts tables 105, administrative 
groupings tables 107, and administrative lookup tables 109 via a web browser operative on 
client system 14-2, which is coupled to web server 12. Web server 12 is coupled to 
application server 15. Web server 12 and appUcation server 15 can be provided by an 

20 appUcation service provider (ASP) web-site, for example. In specific embodiments, the 

server systems 12, 15, and 17 that implement report functions and the server systems 12, 15, 
and 17 that implement administrative functions may be co-resident on a single computer 
system, or may be distributed among a plurality of computer systems. Web server 12 
interfaces with database server system 17, that comprises a database for containing the 

25 various tables, such as facts tables 105, administrative groupings tables 107, and 
administrative lookup tables 109, illustrated in Fig, 3. 

Fig, 4 illustrates a diagram of representative data acquisition, processing and 
loading in a specific embodiment according to the present invention. Fig. 4 illustrates one 
process for taking transaction or summary level information 101 from one or more outside 

30 sources, analyzing the data, categorizing and loading the data into database tables for further 
analysis and administration. The input information 101 is presented in electronic form from a 
variety of storage mechanisms, such as a CD, a tape, or obtained using a file transfer protocol 
(FTP), or the Uke. The information 101 relates to fulfilhnent and processing of subscription- 
based transactions. The format and level of summarization of information 101 varies among 
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specific embodiments, and may be customized to varying degrees for individual clients. 
Frequency input files are input that varies according to the client. Further, input information 
101 can be obtained fi-om a variety of sources, such as, for example a data processing vendor, 
or a client data source. 

5 The information 101 is processed and loaded into transisiton tables 103 by a 

plurality of subprocesses of the data process 102 of Fig. 3. A file archival process 202, 
imports the information 101 and archives it into a storage repository 203. In a specific 
embodiment, the information 101 is organized in folders, which are organized by cUent and 
date. Other organization paradigms may be used in various specific embodiments. A data 

10 loader process 204 retrieves archived information fi-om the repository 203. Based upon a 
type, location and owner of the information in the repository 203, the data loader executes 
processing of the information. The information is processed from repository 203 in this 
manner in serial fashion. The data loader 204 may be a software process written in any of a 
variety of languages, but in a presently preferable embodiment, data loader 204 is a Java 

1 5 application that invokes scripts written in PERL. Once the information is processed from 

repository 203, a PERL DTS SQL loader transforms the information into a format compatible 
with storage into transition tables 103. This process also serves as a checkpoint restart 
mechanism. A checkpoint restart represents a rollback stage in the data loading process. If it 
is necessary to restore the database to an earlier version, this is accomplished by referring 

20 back to transition tables and then rerunning summary procedures. A rollback is triggered for 
a variety of reasons, including corrupted data feed files, corrupted summary procedures, and 
so forth. Then, as illustrated by Fig. 3, a plurality of stored procedures 104 are invoked to run 
summary procedures against the transition tables 103. These sunamary procedures update, 
replace or append summary tables 105 used for administrative or reporting purposes. 

25 Summarized data tables are referred to as "fact" tables. The facts tables 105 contain 

statistical information summarized from the transition tables 103 for administrative and 
reporting purposes. 

Fig. 5A illustrates a diagram of representative online administrative system in 
a specific embodiment according to the present invention. Administrative fimctions enable a 
30 user to add, edit or change records in various database tables. In a specific embodiment 
illustrated by Fig. 5A, the administrative fimctions are provided using a browser-based 
interface which can be executed on a client computer, such as client system 14-1, for 
example. Client 14-1 interacts with web server 12 over network connection 16, which can be 
any of a number of network topologies, and may include the Internet, for example. Web 
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server system 12 connects with application server system 15, having one or more 
administrative processes 303 stored thereon. Administrative processes 303 can be 
implemented in a variety of different ways in various specific embodiments. However, in a 
presently preferable embodiment, administrative processes 303 are Visual Basic (VB) scripts. 
5 Administrative processes 303 provide a variety of functionality to specific embodiments. For 
example, scripts vmtten in the Visual Basic pro gamming language provide the basis for 
iteractive web pages. These scripts also include triggers that activate stored procedures 
which effect changes to database tables. Application server system 15 interfaces with 
database server system 17. The apphcation server system include Visual Basic scripts, stored 

10 procedures, and security verification procedures. Application server system 15 has one or 
more administrative stored procedures 304 resident thereon. Administrative stored 
procedures 304 provide a central point for analytic processing that applies business logic to 
client data to create meaningful management information. Administrative procedures 304 are 
used to execute changes to groupings tables 107. These administrative procedures 304 

15 comprise analytic processes that add, edit or delete records in groupings tables 107, and are 
executed against the facts tables 105 and administrative lookup tables 109, using categories 
pre-defined in the groupings tables 107. These categories correspond to an administrative 
hierarchy. Clients interact with administrative procedures 304 via the application server 15 
which can be connected to an application service provider's (ASP) web-site, for example. 

20 The apphcation server 15 activates various unique and proprietary stored procedures. The 
administrative procedures 304 provide the capability to update grouping categories 
corresponding to an administrative hierarchy in the groupings table 107 and user defined 
categories in the administrative tables 109. 

Fig. 5B illustrates a detail diagram of a representative online administrative 

25 system of Fig. 5 A in a specific embodiment according to the present invention. The 

administrative online system comprising administrative processes 303, application server 
system 15, administrative procedures 304, and database server system 17, Information in the 
groupings table 107 comprises a grouping 402 entitled "Groupings Tables:" that comprises a 
plurality of field categories, including a source, a campaign, a panel and a key. It is 

30 noteworthy that some specific embodiments may not have all of the field categories shown, 
and/or may comprise other field categories not illustrated by Fig. 5B. Administration table 
109 comprises a grouping 404 entitled "User-Administered Lookup Tables:" which 
comprises a plurality of field categories, as illustrated by Fig. 5B, It is noteworthy that some 
specific embodiments may not have all of the field categories shown, and/or may comprise 
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other field categories not illustrated by Fig. 5B. In a specific embodiment, users can create 
custom grouping categories in order to analyze the data and customize reporting. 
Administrative procedures 304 comprises a plurality of user triggered stored procedures 406 
that enable users to add or edit items into grouping tables 107. Further, administrative 
5 procedures 304 comprises a plurality of user triggered stored procedures 408 that enable 
users to customize administration tables 109. 

Fig. 6 illustrates an administrative framework that provides a grouping 
hierarchy in a specific embodiment according to the present invention. A grouping is a 
unique, proprietary categorization of information. Fig. 6 illustrates the administrative 

10 framework underlying Figs. 5A-5B, which provides a basis for administrative groupings, as 
well as enabling the user to create custom grouping categories in order to gain further insight 
and customize reports. Administrative frameworks support insights into a client's business 
process, which in turn provide a consistent means for reporting subscription marketing 
information, as well. Fig. 6 illustrates a representative groupings hierarchy 410 having a 

15 plurality of information categories. A Corporation 412 is a pre-defined grouping that denotes 
a company. Corporate values are stored in a corp info database table in the facts tables 
database 105, A Division 414 is a pre-defined grouping that denotes a division within a 
company. Division values are stored in the corp_info database table. A Group 416 is a pre- 
defined grouping that denotes a sub-division of a division. Group values are stored in the 

20 corp_info database table, A Product 41 8 is a pre-defined grouping that denotes a specific 
product sold. Product values are stored in the corp_info database table. A Source Category 
420 is a pre-defined grouping that denotes a category of business within a product (i.e. Agent, 
Billing, DTP, Gifts, Renewals). Source Category values are stored in a src_category database 
table in the facts tables database 105. A Source 422 is a user-defined grouping that denotes a 

25 channel of business within a source category grouping 420. A business channel is a group of 
campaigns. Source values are stored in a source database table in the groupings tables 
database 107, and propogated to all lower-level database tables. A Campaign 424 is a user- 
defined grouping that denotes a particular promotion effor or event. Campaign values are 
stored in a campaigns database table in groupings tables database 107, and propogated to all 

30 lower-level database tables. A Campaign Type 442 is a user-defined grouping that denotes a 
category of Campaigns. Campaign Type values are stored in the campaigns database table, 
and propogated to all lower-level database tables. A Campaign Status 444 is a user-defined 
grouping that denotes a category of Campaigns. Campaign Type values are stored in the 
campaigns database table, and propogated to all lower-level database tables, A Panel 
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(campaign subgroup) 426 is a user-defined grouping that denotes a campaign subgroup (a 
grouping of keys). Panel values are stored in a panels database table in groupings tables 
database 107, and propogated to all lower-level database tables. A Panel Type 432 is a user- 
defined grouping that denotes a category of panels. Panel Type values are stored in the 
5 panels database table, and propogated to all lower-level database tables. A Panel Subtype 
434 is a user-defined grouping that denotes a category of panels. Panel Subtype values are 
stored in the panels database table, and propogated to all lower-level database tables, A 
Package 436 is a user-defined grouping that denotes a category of panels or keys. Package 
values are stored in the panels database table, and propogated to all lower-level database 

10 tables. A Key 428 is an identifier that denotes a grouping of individuals who are sent a 

common promotion effort. Key values are stored in a keys database table in groupings tables 
database 107. A List Category 452 is a user-defined grouping that denotes a broad category 
or promotional fists. List Category values are stored in the keys database table. A 
promotional fist is a specific source for names used to promote products and services. A List 

15 Name 454 is a user-defined grouping that denotes a specific source for names used to 

promote products and services. List Name values are stored in the keys database table. A 
List Segment 456 is a user-defined grouping that denotes a specific selection from a list. 
Selections are often based on demographic or behavioral characteristics (i.e., age, sex, 
region). List Segment values are stored in the keys database table. Fig. 6 is merely one 

20 example of an administrative framework. Many other administrative frameworks that 

support insights into a cHent's business process can be readily generated by those of ordinary 
skill in the art based upon the teachings of the present invention. Such administrative 
frameworks provide a consistent means for reporting subscription marketing information, as 
will be discussed in fiirther detail below. 

25 Fig. 7 illustrates a diagram of representative reporting process in a specific 

embodiment. The reporting functions enable users to select reports and query database tables 
in order produce subscription marketing reports. Reporting Amotions enable users to 
selectively choose reports and query database tables in order produce usefiil subscription 
marketing reports. In a specific embodiment, the reporting fimctions are provided through a 

30 browser-based interface. Reports provide structured, consistent information that describes 
the business performance of marketing campaigns. Fig. 7 illustrates a report generating 
framework, comprising a browser-based interface which can be executed on a client 
computer, such as chent system 14-2, for example. Client 14-2 interacts with web server 12 
over network connection 16, which can be any of a number of network topologies, and may 
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include the Internet, for example. Web server system 12 connects with application server 
system 15, having one or more report processes 501 stored thereon. Report processes 501 
can be implemented in a variety of different v^ays in various specific embodiments. 
However, in a presently preferable embodiment, report processes 501 are script programs 
5 written in the Visual Basic progamming language, which provide the basis for iteractive web 
pages displaying the reports. 

Application server system 15 connects to a database server system 17 that 
comprises database management functions, such as locating requested data records, and the 
like. Database server system 17 manages a report catalog table 503, comprising report file 

10 settings such as; report name, report alias, location, and related application settings. Database 
server system 17 also manages a saved report table 505 that stores information about saved 
reports. A saved report record includes report selection and location, selection query string, 
and parameters including user-defined report name, report group and comments. After a 
specific report file is selected by a user at client 14-2, the selection is communicated through 

15 network 16 to web server 12, which passes the selection to appUcation server system 15. The 
application server system 15 queries the database server 17 to obtain the selected report from 
report catalog table 503, or from stored report table 505. Then, a valid query string is passed 
to the report in a report execution process 502. Then, the report is rendered by a report 
rendering process 504. Reports may be rendered in a variety of ways in various specific 

20 embodiments, however, in a presently preferred embodiment, the report is rendered through 
the browser via an ActiveX control viewer. The viewer presents a picture of grouping and 
statistical information according to a pre-defined format. Users control the content of the 
report by limiting the selection of data. 

Fig. 8 illustrates a diagram showing a representative hyperlink chain linking 

25 reports in a specific embodiment according to the present invention. Reports are hyperiinked 
to other reports, web-pages, or files. The hyperlink chain enables users to launch reports 
from within a report, or view related files or web-pages, thus reducing the amount of time 
required to access additional views of information. Fig. 8 illustrates a report 10 comprising a 
file, for example, that displays grouping and statistical information in a specific format. 

30 Users control the content of report 10 from a browser at chent 14-2 by limiting the selection 
of data that is incorporated into the report. The selection of data is accomplished using a 
reporting onhne functional application. Report 10 comprises a first plurality of hypertext 
links 600, including a link to supplemental report 602 that provides a hyperlink to a process 
that renders a report file that displays grouping and statistical information in a specific 
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format. Data selection criteria is automatically passed to supplemental reports based on the 
origin of the hyperlink. Hypertext links 600 also includes a link to web page 604 that 
provides a hyperlink to a process that renders a web page, a link to file 606 that provides a 
hyperlink to a process that renders or executes a file, a link to an export to file 608 that 
5 provides a function that exports the grouping and statistical values presented in the ActiveX 
report viewer to a file (txt, xls, html). A second pluraUty of hypertext links 610 is also 
associated with report 10. Hypertext links 610 comprises links 612-618, which are analogous 
to links 602-608 of hypertext links 600. 

Fig. 9 illustrates a diagram of a representative access security for a database 

10 and reporting system in a specific embodiment according to the present invention. Security 
techniques enable specific embodments to prevent unauthorized access to client data. In a 
specific embodiment, secure users are provided with usemames and passwords. Access 
rights are set by restricting access to specific database tables depending on access security 
level settings, which are also associated with unique combinations of usemames and 

15 passwords. The security functions are provided to users of a browser-based interface which 
can be executed on a client computer, such as client system 14-1, for example. Client 14-1 
interacts with web server 12 over network connection 16, which can be any of a number of 
network topologies, and may include the Internet, for example. Web server system 12 
connects with application server system 15, having one or more administrative processes 303 

20 and reporting processes 501 stored thereon. Application server system 15 has access to a 
plurality of user security access tables 711, which store user access information, including 
usemame, password, database access rights settings and administrative functions rights 
settings, for example. Application server system 15 comprises stored procedures and security 
verification procedures, which can be implemented in a variety of different ways, but in a 

25 specific embodiment are Visual Basic scripts. A security verification procedure executing in 
application server system 15 performs a verification of a user's access authority 704. If the 
user has access rights to the administrative and/or reporting functions, which can be 
determined by matching a usemame and a password against user security access tables 711, 
the user is permitted to access the administrative and/or reporting functions. 

30 However, if a mismatch in usemame and/or password occurrs, then a 

verification failure process 702 retums the user to a web server logon page in order to provide 
another opportunity to submit a valid usemame and password. In a specific embodiment, the 
above described access control to the administrative and/or reporting functions of the 
application server 15 may be used in conjunction with access control provided by the web 
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server 12 to provide two layer security functionality. Further, in a specific embodiment, the 
above described access control to the administrative and/or reporting functions of the 
application server 15 may be implemented using a plurality of access levels. In a 
representative specific embodiment, a first security level provides access to basic Amotions, 
5 such as usemame and password selection and database query functions. A second security 
level provides access to administrative functions, such as setting permissions for database 
tables and the like. 

Fig. 10 illustrates a diagram of a representative process for denormalizing 
database tables in a specific embodiment according to the present invention. In accordance 

10 with the invention, database tables are denormalized by propagating information fi*om one 
table to another, but there is no relationship between the tables by way of a database join 
operation. In a specific embodiment, this function is provided by specific procedures of the 
stored procedures 106. The specific stored procedures are activated by users using a browser 
program at client 14-1, for example, in cooperation with an administrative application. The 

1 5 denormalized database table enables report generation to be performed more quickly by 
reducing overhead associated with joining a plurality of database tables. 

Denormalization takes as input a plurality of tables, firom the facts tables 105 
and lookup tables 109 and produces a key table 1009, which contains a complete set of 
grouping information, in groupings tables 107. The groupings (keys) table 107 is the basis 

20 for many of the reporting features available in specific embodiments. The groupings table 

107 is populated, updated and appended in a variety of ways. For example, a user may apply 
updates to groupings table 107 using the online administrative interface fi*om a browser 
program on client 14-1. Another technique updates grouping table 107 automatically by 
referencing a set of user administered lookup tables 109. A yet fiirther technique updates 

25 grouping table 107 automatically by referencing a set of lookup tables 109 maintained by a 
database administrator. The groupings table 107 stores the information used to create a 
variety of marketing reports corresponding to the administrative firamework (groupings 
hierarchy), without having dependencies on other database tables. Specifically, the key table 
1009 in Fig. 10 is used for report generation in a process which matches groupings in the key 

30 table 1009. 

Fig. 10 illustrates a representative denormalization process, in which a source 
category table 1001, which is resident in adminitrative tables 109, provides information to a 
source table 1003, which is also resident in administrative tables 109, by an update source 
table process 1002. An update campaign table process 1004 reflects information firom source 
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table 1003 to a campaign table 1005. An update panels table process 1006 propagates 
information from campaign table 1005 to a panels table 1007. An update keys table process 
1008 updates keys table 1009, in groupings tables 107 based upon the contents of panels table 
1007, In a specific embodiment, update source table process 1002, update campaign table 
5 process 1004, update panels table process 1006, and update keys table process 1008 are 
implemented as stored procedures. By carrying information from one database table to 
another, these procedures effectively link tables in different databases without requiring an 
database table join operation. 

A representative example of the information exchanged from one database 
10 table to another during denormalization processing follows: 



Source Category Table to Source Table 
1 5 product_id 

src_cat_name (source category name) 

Source Table to Campaign Table 
product_id 

20 src__cat_name (source category name) 

source (source name) 

Campaign Table to Panel Table 
product_id 

25 src_cat_name (source category name) 

source (soiirce name) 

camp_name (campaign name) 

mail_date_fr (mail date) 

camp_status (campaign status) 
30 e_set_name (expense set name) 

r_set_name (revenue set name) 

budgeted__vol (budgeted volume) 

budgeted_grossjpct (budgeted gross response percent) 

35 Panel Table to Kevs Table 

productid 

src__cat_name (source category name) 

source (source name) 

camp_name (campaign name) 
40 mail date fr (mail date) 

camp_status (campaign status) 

e_set_name (expense set name) 

r_set_name (revenue set name) 

budgeted_vol (budgeted volume) 
45 budgeted_grossjpct (budgeted gross response percent) 

panel name (panel name) 

panel_start_date (panel mail date) 

panel type (panel type) 

panel_subtype (panel subt3^e) 
50 panel_pkg (package description) 

Keys Table Inputs and Overrides 
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All the field values listed above from the Panels Table plus: 
key_desc (source key description) 
mail_qty_override (mail qty override qty) 
newsstand_sale (newsstand sale qty) 
5 newstand_sale_marker (subtotal marker - newstand only) 

list_cat__name (list category name) 
list_name (list name) 
list_segement_name (list segment name) 
list_cost__rollout_cpm (list rollout cost per thousand) 
1 0 list__cost__basis (basis for calculation list costs) 

list_cost_factor (factor applied against list costs) 
merge_purge_qty (merge purge qty) 
subtotal_flag (subtotal marker) 
optional_efFort_id (effort sequence marker) 

15 



Fig. 1 1 illustrates a diagram of a representative process for optimizing report 
generation in a specific embodiment according to the present invention. According to the 
invention, reports may be optimized for performance or other reasons by applying 

20 denormalizing processes, such as described above with reference to Fig. 10, to one or more of 
facts tables 105 and lookup tables 109, for example. Fig. 11 illustrates a process for 
optimizing report 10 in accordance with the invention. Fig. 1 1 illustrates facts tables 105 and 
lookup tables 109 which provide tables that serve as input to the denormalization processing 
described with reference to Fig. 10. Facts table 105 comprises one or more report specific 

25 fact tables 902. Lookup table 109 comprises one or more report specific lookup tables 904. 
Denormahzation is applied to report specific fact tables 902 and report specific lookup tables 
904 to produce one or more denormalized report specific groupings tables 906 in groupings 
tables 107. Report 10 is created from the denormalized report specific groupings tables 906 
in groupings tables 107. In specific embodiments according to the present invention, this 

30 denormalization and report optimizing processing provides improved reporting capabilities 
by reducing at least one of a number of joins of database tables that must be made and a 
number of records that must be reported. These reductions enable specific embodiments to 
provide reports more quickly that conventional techniques. Specific embodiments deliver 
reports over computer networks, such as the Internet. Further, specific embodiments can 

35 produce a report firom a relatively large number of transactions within a reasonable delay 
time. 

Although specific embodiments of the invention have been described, various 
modifications, alterations, alternative constructions, and equivalents are also encompassed 
within the scope of the invention. The described invention is not restricted to operation 
40 within certain specific data processing environments, but is firee to operate within a plurality 
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of data processing environments. For example, the present invention may be used to extract 
and store information for any domain or industry which benefits Jfrom the information 
extraction and storage. Additionally, although the present invention has been described using 
a particular series of transactions and steps, it should be apparent to those skilled in the art 
5 that the scope of the present invention is not limited to the described series of transactions 
and steps. 

Further, while the present invention has been described using a particular 
combination of hardware and software, it should be recognized that other combinations of 
hardware and software are also within the scope of the present invention. The present 
10 invention may be implemented only in hardware or only in software or using combinations 
thereof. 

The specification and drawings are, accordingly, to be regarded in an 
illustrative rather than a restrictive sense. It will, however, be evident that additions, 
subtractions, deletions, and other modifications and changes may be made thereunto without 
15 departing from the broader spirit and scope of the invention as set forth in the claims. 
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WHAT IS CLAIMED IS: 



1 LA method for analyzing subscription information, comprising: 

2 receiving a plurality of subscription information; 

3 archiving said plurality of subscription information into a repository; 

4 retrieving from said repository a plurality of selected subscription information; 

5 transforming said plurality of selected subscription information into transition 

6 table format information; 

7 populating a facts database with said transition format information to produce 

8 at least one of a plurality of facts tables with a summarization of said transition format 

9 information; 

10 denormalizing said summarization of said transition format information to 

1 1 produce a plurality of denormalized infomiation; and 

12 providing a report based upon said denormalized information. 

1 2 The method of claim 1, wherein denormalization comprises: 

2 populating selected information from at least one of a plurality of facts tables 

3 to a key table. 

1 3, The method of claim 2, wherein said facts tables are stored in a facts 

2 table database. 

1 4. The method of claim 3, wherein said key table is stored in a grouping 

2 table database. 

1 5. The method of claim 2, said at least one of a pluraUty of facts tables 

2 comprises at least one of 

3 source category table, a source table, a campaign table, a panels table. 

1 6. The method of claim 1, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of reports; 

3 and 

4 providing said report based upon said denormalized information according to 

5 said at least one criteria. 

1 7, The method of claim 1, further comprising: 
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2 receiving input of at least one criteria for at least one of a plurality of tables; 

3 and 

4 configuring said at least one of said plurality of tables based upon said at least 

5 one criteria. 

1 8. The method of claim 1, further comprising: 

2 receiving input of at least one of a usemame and a password; 

3 verifying whether said input of said at least one of a usemame and a password 

4 corresponds to a user authorized to access reporting procedures; and 

5 providing access to reporting procedures to said user if said user is determined 

6 to be authorized, 

1 9. The method of claim 8, further comprising: 

2 verifying whether said input of said at least one of a usemame and a password 

3 corresponds to a user authorized to access administrative procedures; and 

4 providing access to administrative procedures to said user if said user is 

5 determined to be authorized. 

1 10. A method for analyzing subscription information, comprising: 

2 receiving a plurality of subscription information; 

3 archiving said plurality of subscription information into a repository; 

4 retrieving from said repository a plurality of selected subscription information; 

5 transforming said plurality of selected subscription information into transition 

6 table format information; 

7 populating a facts database with said transition format information to produce 

8 at least one of a plurality of facts tables with a summarization of said transition format 

9 information; 

10 denormalizing said summarization of said transition format information to 

1 1 produce a plurality of denormalized information, said denormalization comprising populating 

12 selected information from at least one of a plurality of facts tables, stored in a facts table 

13 database, to a key table, stored in a grouping tables database; and 

14 providing a report based upon said denormalized information; 

15 wherein said at least one of a plurality of facts tables comprises at least one of 

16 source category table, a source table, a campaign table, and a panels table. 
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1 11. The method of claim 1 0, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of reports; 

3 and 

4 providing said report based upon said denormalized information according to 

5 said at least one criteria. 

1 12. The method of claim 10, further comprising: 

2 receiving input of at least one criteria for at least one of a plurality of tables; 

3 and 

4 configuring said at least one of said plurality of tables based upon said at least 

5 one criteria. 

1 13. The method of claim 10, further comprising: 

2 receiving input of at least one of a usemame and a password; 

3 verifying whether said input of said at least one of a usemame and a password 

4 corresponds to a user authorized to access reporting procedures; and 

5 providing access to reporting procedures to said user if said user is determined 

6 to be authorized. 

1 14. The method of claim 1 3 , further comprising: 

2 verifying whether said input of said at least one of a usemame and a password 

3 corresponds to a user authorized to access administrative procedures; and 

4 providing access to administrative procedures to said user if said user is 

5 determined to be authorized, 

1 1 5 . A computer program product for analyzing subscription information, 

2 said computer program product comprising: 

3 code that receives a plurality of subscription information; 

4 code that archives said plurality of subscription information into a repository; 

5 code that retrieves from said repository a plurality of selected subscription 

6 information; 

7 code that transforms said plurality of selected subscription information into 

8 transition table format information; 
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9 code that populates a facts database with said transition format information to 

10 produce at least one of a plurality of facts tables with a summarization of said transition 

1 1 format information; 

12 code that denormalizes said summarization of said transition format 

13 information to produce a plurality of denormalized information, said denormalization 

14 comprising populating selected information from at least one of a plurality of facts tables, 

15 stored in a facts table database, to a key table, stored in a grouping tables database; 

16 code that provides a report based upon said denormalized information; and 

17 a computer readable storage medium for holding the codes. 

1 16. The computer program product of claim 1 5, further comprising: 

2 code that receives input of at least one criteria for at least one of a plurality of 

3 reports; and 

4 code that provides said report based upon said denormalized information 

5 according to said at least one criteria. 

1 17. The computer program product of claim 1 5, further comprising: 

2 code that receives input of at least one criteria for at least one of a plurality of 

3 tables; and 

4 code that configures said at least one of said plurality of tables based upon said 

5 at least one criteria. 

1 18. The computer program product of claim 15, fiirther comprising: 

2 code that receives input of at least one of a usemame and a password; 

3 code that verifies whether said input of said at least one of a usemame and a 

4 password corresponds to a user authorized to access reporting procedures; and 

5 code that provides access to reporting procedures to said user if said user is 

6 determined to be authorized. 

1 19. The computer program product of claim 1 8, further comprising: 

2 code that verifies whether said input of said at least one of a usemame and a 

3 password corresponds to a user authorized to access administrative procedures; and 

4 code that provides access to administrative procedures to said user if said user 

5 is determined to be authorized. 

1 20. An apparatus for analyzing subscription information, comprising: 
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2 means for receiving a plurality of subscription information; 

3 means for archiving said plurality of subscription information into a 

4 repository; 

5 means for retrieving from said repository a plurality of selected subscription 

6 information; 

7 means for transforming said plurality of selected subscription information into 

8 transition table format information; 

9 means for populating a facts database with said transition format information 

10 to produce at least one of a plurality of facts tables with a summarization of said transition 

1 1 format information; 

12 means for denormalizing said summarization of said transition format 

13 information to produce a plurality of denormalized information, said denormalization 

14 comprising populating selected information from at least one of a plurality of facts tables, 

15 stored in a facts table database, to a key table, stored in a grouping tables database; and 

16 means for providing a report based upon said denormalized information. 

1 21. A system for analyzing subscription information, comprising: 

2 at least one of a plurality of clients; 

3 a web server; connected to said at least one of a plurality of clients by a 

4 computer network; 

5 an application server; 

6 a database server; connected to said application server and said web server by 

7 a communication medium, wherein said at least one client receives a plurality of subscription 

8 information and forwards said plurality of subscription information via said web server and 

9 said application server to said database server, which archives said plurality of subscription 

10 information into a repository; and wherein 

1 1 said application server retrieves from said repository a plurality of selected 

12 subscription information and transforms said plurality of selected subscription information 

13 into transition table format information; and wherein 

14 said database server populates a facts database with said transition format 

15 information to produce at least one of a plurality of facts tables with a summarization of said 

16 transition format information; and wherein 

17 said application server denormalizes said summarization of said transition 

18 format information to produce a plurality of denormalized information, said denoimalization 
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19 comprising populating selected information from at least one of a plurality of facts tables, 

20 stored in a facts table database, to a key table, stored in a grouping tables database; and 

21 wherein 

22 said application server provides a report based upon said denormalized 

23 information. 

1 22. The system of claim 21, wherein said at least one of a plurality of 

2 clients receives input of at least one criteria for at least one of a plurality of reports; and 

3 forwards said input via said web server to said application server, which provides said report 

4 based upon said denormalized information according to said at least one criteria. 

1 23. The system of claim 2 1 , wherein said at least one of a plurality of 

2 clients receives input of at least one criteria for at least one of a plurality of tables; and 

3 forwards said input via said web server to said application server, which configures said at 

4 least one of said plurality of tables based upon said at least one criteria. 

1 24, The system of claim 21 , wherein said at least one of a plurality of 

2 clients receives input of at least one of a usemame and a password; and forwards said input 

3 via said web server to said application server, which verifies whether said input of said at 

4 least one of a usemame and a password corresponds to a user authorized to access reporting 

5 procedures; and provides access to reporting procedures to said user if said user is determined 

6 to be authorized. 

1 25. The system of claim 24, wherein said application server verifies 

2 whether said input of said at least one of a usemame and a password corresponds to a user 

3 authorized to access administrative procedures; and provides access to administrative 

4 procedures to said user if said user is determined to be authorized. 
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PATENT 

Attorney Docket No.: 020508-OOOlOOUS 



SUBSCRIPTION MEMBERSHIP MARKETING APPLICATION FOR 

THE INTERNET 

ABSTRACT OF THE DISCLOSURE 

The present invention provides network based reporting techniques designed 
to meet the needs of subscription based marketers. Clients access, edit report on, and analyze 
their subscriber database using the Intemet, for example, hi a representative embodiment, a 
plurality of client computers connect to the Intemet using a local area network (LAN), for 
example. The client computers pass security protocols before gaining access to webj 
application and database servers. Once connected, the client computers are able to retrieve 
and display information using a web browser. Database contents are denormalized to provide 
the capability to generate reports based upon relatively large amounts of information. In 
addition, the data is transformed into a structure specifically to facilitate and enhance multi- 
channel subscription marketing activities. 

PA 3102715 v3 
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Description: This page presents a user logon dialog box requiring a valid usemame and password in order 
to gain access to the application server. 
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welcome.asp 

Description: This page provides a user welcome message and offers an option to choose either 
administrative functions or reporting functions. 
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adminla.asp 

Description: This page provides a user the ability to choose a product group for administration. A product 
group is defined in the corp_info database table. A product group is a grouping in IMT's proprietary 
administrative hierarchy. 
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admiii2a.asp 

Description: This page provides a user the ability to choose a product for administration. A product is 
defined in the corp Jnfo database table. A product is a grouping in IMT's proprietary administrative 
hierarchy. 
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admin3a,asp 

Description: This page provides a user the ability to choose a source category for administration. A source 
category is defmed in the src_category database table, A source category is a grouping in IMT's 
proprietary administrative hierarchy. 
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admin4a.asp 

Description: This page provides a user the ability to administer source records in the source database table. 
A source is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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adminSa^asp 

Description: This page provides a user the ability to administer campaign records in the campaigns 
database table. A campaign is a grouping in IMT's proprietary administrative hierarchy. Administration is 
the adding, editing or deleting of records in a specific database table. 
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admin6a.asp , j u u^ 

Description: This page provides a user the abiUty to administer panel records in the panels database table. 
A panel is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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adminkevleft.asp / adminkevri^ht,asp 

Description: This page provides a user the ability to administer key records in the keys database table. A 
key is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editmg or 
deleting of records in a specific database table. 
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Description: This page provides a user the ability to edit key records in the keys database table. A key is a 
grouping in IMT's proprietary administrative hierarchy. 
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addsource.asp 

Description; This page provides a user the ability to add source records in the source database table. A 
source is a grouping in IMT's proprietary adniinistrative hierarchy. 















; [ 9ollm^^ ViBw ' - Favorites ;ioob r Hefc r.^^-ffe M''^ l'^^: f^: 3 
























' J Andrew HtocZ/'wvw imdTetvwkcoiifwWexAdmin htm 












1 AFJistniift ^SBWCH pumwttxyxti 
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Description: This page provides a user the abihty to edit source records in the source database table. A 
source is a grouping in IMT's proprietary administrative hierarchy. 
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Description: Tliis page provides a user the ability to add campaign records in the campaign database table. 
A campaign is a groupmg in IMT's proprietary administrative hierarchy. 
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Description: This page provides a user the ability to edit campaign records m the campaigns database 
table. A campaign is a grouping in IMT's proprietary administrative hierarchy. 



^IMT KetwQik - Micicxoft Internet Expfater 




Pag€ 1 - Records 1-4 of 4 

Return to Menu 



CAHPAXCNNAME | CAMPAIGN START DATE | CAMPAIGN TYPE | ^^yS^^ 



[2000-06 DM 



[6/13/2000 



1 2000 Summer 3 1-*^=*^ 3 1"^^ 200M6 Control 



2000-03 DM 



[2/28/2000 



' [2000 Spring 3 1^^^, I ^Op^Hl^ Control _ 



3 I D'red Wail Test Set^ [ > 



199^-12 DM 



[12/17/1999 



2000 Fall 



"Tj|aosed 3 l^^*^^ 399-1 2 Control 



^lyndefined 
3 [Undefined 



[1999-06 DM [6/1/1399 
1^ , SubmitChonge* ' I 



20Q0 Fall 



"3|aosed 31^*^1399-06 Control 



3 1 Undefined 31 > 



admin5a,asp 

Description: This page provides a user the ability to administer campaign records m the campaigi 
database table. A campaign is a grouping in IMT's proprietary administrative hierarchy. Adminis: 
the adding, editing or deleting of records in a specific database table. 
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Description: This page provides a user the ability to administer panel records in the panels database table. 
A panel is a grouping in IMT's proprietary administrative hierarchy. Administration is the adding, editing 
or deleting of records in a specific database table. 
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addpanel.asp 

Description: This page provides a user the abihty to add panel records in the panels database table. A 
panel is a grouping in MT's proprietary administrative hierarchy. 
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ms editpanel.asp 

Description: This page provides a user the abiUty to edit panel records in the panels database table. A 
panel is a grouping in IMT's proprietary administrative hierarchy. 
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drilLasp i n j 

Description: This page provides a user the abiHty to search for records in database tables using a dnll-down 
interface. The drill-down interface corresponds to IMT's proprietary database hierarchy. 
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adminsearch.asp 

Description: This page provides a user the ability to search for records in database tables using a 
combination of database selections and text string selections. Records are displayed in a table format. 
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avaiLasp 

Description: This page provides a user the abihty to search for records in the available keys table using a 
positions of the source key record as a filtering mechanism. 
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tabautosetup,asp 

Description: This page provides a user the abiUty to administer autosetup tables. Autosetup setup tables 
are a series of database tables that provide categorization instructions in order to build user-defmed 
grouping records automatically. Administration is the adding, editing or deleting of records in a specific 
database table. 
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add autosetup.asp 

Description: This page provides a user the abihty to add autosetup scheme records in the 
autosetup_scheme database (lookup) table. An autosetup scheme is a basic set of instructions for creating 
user defmed groupings depending on the structure of a source key. 




edit autosetup.asp 

Description: This page provides a user the abiUty to edit autosetup scheme records in the 
autosetup_scheme database (lookup) table. An autosetup scheme is a basic set of instructions for creatmg 
user defined groupings depending on the structure of a source key. 




add campaigndef.asp . 
Description: This page provides a user the ability to add autosetup campaign definition records m the 
autosetup„campaign_def database (lookup) table. An autosetup campaign definition is a basic set of 
instructions for creating user defined campaign groupings depending on the structure of a source key. 



edit campigndef.asp 

Description; This page provides a user the ability to edit autosetup campaign definition records in the 
autosetup_campaign_def database (lookup) table. An autosetup campaign definition is a basic set of 
instructions for creating user defined campaign groupings depending on the structure of a source key. 




add renewal psdef.asps . 
Description: This page provides a user the ability to add autosetup prior source definition records in the 
autosetup_renewai_psdef database (lookup) table. An autosetup prior source definition is a basic set of 
instructions for creating user defined source groupings depending on the structure of a source key. 




edit renewal psdef,asp . 
Description: This page provides a user the abihty to edit autosetup prior source definition records m the 
autosetup_renewal_psdef database (lookup) table. An autosetup prior source definition is a basic set of 
instructions for creating user defined source groupings depending on the structure of a source key. 
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add panel def,asp 

Description: This page provides a user the ability to add autosetup panel definition records in the 
autosetup_j)anel_def database (lookup) table. An autosetup panel definition is a basic set of instructions 
for creating user defmed panel groupings depending on the structure of a source key. 




edit panel def.asp 

Description: This page provides a user the abihty to edit autosetup panel definition records records in the 
autosetup_panel_def database (lookup) table. An autosetup panel definition is a basic set of instructions 
for creating user defined panel groupings depending on the structure of a source key. 
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setupcampstatasp 

Description: This page provides a user the ability to administer campaign status records in the 
proti_camp_status database (lookup) table. A campaign status is a grouping in IMT's propnetary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addcampstatasp 

Description: This page provides a user the ability to add campaign status records in the 
prod_canip_status database (lookup) table. A campaign status is a grouping in IMT's proprietary 
administrative hierarchy. 




editcampstat.asp 

Description: This page provides a user the ability to edit campaign status records in the 
prod_camp_status database (lookup) table. A campaign status is a grouping in IMT's proprietary 
administrative hierarchy. 
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setupcamptvpe.asp 

Description: This page provides a user the ability to administer campaign type records in the 
prod_canip_type database (lookup) table. A campaign type is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addcamptype,asp 

Description: This page provides a user the ability to add campaign type records in the prod_camp_type 
database (lookup) table. A campaign type is a grouping in IMT's proprietary administrative hierarchy. 
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editcamptype^asp 

Description; This page provides a user the ability to edit campaign type records in the prod__camp_type 
database (lookup) table. A campaign type is a grouping in IMT's proprietary administrative hierarchy. 




setupeset>asp 

Description: This page provides a user the abihty to administer expense set records in the expense_sets 
database (lookup) table. Administration is the adding, editing or deleting of records in a specific database 
table. 



Eipense Set > Miciotoft Internet Eatptofer 



addesetasp 

Description: This page provides a user the ability to add expense set records in the expense_sets database 
(lookup) table. 
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editeset.asp 

Description: This page provides a user the ability to edit expense set records in the expense_sets database 
(lookup) table. 
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setuplistcat.asp 

Description: This page provides a user the ability to administer list category records in the list_cats 
database (lookup) table. A list category is a grouping in MT's proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addlistcat.asp 

Description: This page provides a user the ability to add list category records in the list_cats database 
(lookup) table. A list category is a grouping in IMT's proprietary administrative hierarchy. 
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editlistcatasp 

Description: This page provides a user the abihty to edit list category records in the list_cats database 
(lookup) table. A list category is a grouping in IMT's proprietary administrative hierarchy. 
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setup!istname>asp 

Description: This page provides a user the abihty to administer list name records in the list_names 
database (lookup) table. A list name is a grouping in IMT's proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addlistname.asp 

Description: This page provides a user the abihty to add list name records in the list_names database 
(lookup) table. A list name is a groupmg in IMT's proprietary administrative hierarchy. 




editlistname^asp 

Description: This page provides a user the ability to edit list name records in the list_names database 
(lookup) table. A list name is a grouping in IMT*s proprietary administrative hierarchy. 




setuplistsegmentasp 

Description: This page provides a user the ability to administer list segments records in the list_segments 
database (lookup) table. A list segment is a grouping inlMT's proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addlistsegements.asp 

Description: This page provides a user the ability to add list segments records in the list_segments 
database (lookup) table, A list segment is a grouping in IMT's proprietary administrative hierarchy. 




editlistsegments.asp 

Description: This page provides a user the ability to edit list segments records in the Iist_segnients 
database (lookup) table. A list segment is a grouping in IMT's proprietary administrative hierarchy. 




setuppanelpackage.asp 

Description: This page provides a user the abihty to administer pane! package records in the 
prod janeijackage database (lookup) table. A panel package is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table- 
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addpanelpackage.asp 

Description: This page provides a user the abiUty to add panel package records in the 
prodjpanel_package database (lookup) table. A panel package is a grouping in IMT's proprietary 
administrative hierarchy. 




editpane]packa2e,asp 

Description: This page provides a user the ability to edit panel package records in the 
prodjaneljpackage database (lookup) table. A panel package is a grouping in IMT^s propnetary 
administrative hierarchy. 
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setuppaneisubtvpe>asp 

Description: This page provides a user the abihty to administer panel subtype records in the 
corp_paneI_sub_type database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
administrative hierarchy. Administration is the adding, editing or deleting of records in a specific database 
table. 
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addpaneisubtvpe.asp 

Description: This page provides a user the abiHty to add panel subtype records in the 
corp_panel_sub_type database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
adininistrative hierarchy. 
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editpaneisubtvpe.asp 

Description: This page provides a user the abihty to edit panel subtype records in the 
corp_j)anei_sub_type database (lookup) table. A panel subtype is a grouping in IMT's proprietary 
administrative hierarchy. 




setuppaneitesttvpe.asD 

Description: This page provides a user the ability to administer panel test type records in the 
corp_panel_test_type database (lookup) table. A panel test type is a grouping in IMT's propnetary 
administrative hierarchy. Administration is the adding, editing or deleting of records m a specific database 
table. 
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addpaneitesttvpe.asp 

Description: This page provides a user the ability to add panel test type records in the 
corp_paneiJestJype database (lookup) table. A panel test type is a grouping in IMT's propnetary 
adnainistrative hierarchy. 




editpaneltesttvpe.asp 

Description: This page provides a user the abihty to edit panel test type records in the 

corp _paneljest Jype database (looicup) table. A panel test type is a grouping in IMT's proprietary 

administrative hierarchy. 




setuppaneltvpe.asp 

Description: This page provides a user the ability to administer panel type records in the corpjpaneljype 
database (lookup) table. A panel type is a grouping in MT's proprietary administrative hierarchy. 
Administration is the adding, editing or deleting of records in a specific database table. 
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addpaneitvpe.asp 

Description: This page provides a user the abihty to add panel type records in the corp_panel_type 
database (lookup) table. A panel type is a grouping in IMT^s proprietary administrative hierarchy. 
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editpaneitvpe.asp 

Description: This page provides a user the ability to edit panel type records in the corp_paneI_type 
database (lookup) table. A panel type is a grouping in IMT's proprietary administrative hierarchy. 




setuprsetasp 

Description: This page provides a user the abihty to administer revenue set records in the revenue_sets 
database (lookup) table. Administration is the adding, editing or deleting of records in a specific database 
table. 



addrset.asp 

Description: This page provides a user the ability to add revenue set records in the revenue_sets database 
(lookup) table. 
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editrset.asp 

Description: This page provides a user the abihty to edit revenue set records in the revenue_sets database 
(lookup) table. 




Done. 



setupsourcename.asp 

Description: This page provides a user the ability to administer source description records in the 
source_descriptions database (lookup) table, A source description is a grouping in IMT's proprietary 
admmistrative hierarchy. Administration is the adding, editmg or deleting of records in a specific database 
table. 
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addsourcedesc.asp 

Description: This page provides a user the ability to add source description records in the 
source_descriptions database (lookup) table. A source description is a grouping in EMT's propnetary 
administrative hierarchy. 
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editsourcedesc.asp 

Description: This page provides a user the ability to edit source description records in the 
source__descriptions database (lookup) table. A source description is a grouping m IMT's proprietary 
administrative hierarchy. 




setuppriorsourcedesc.asp 

Description: This page provides a user the abihty to administer source identifier description records in the 
prior_source_desc database (lookup) table. A source identifier description is a grouping in IMT's 
proprietary administrative hierarchy. Administration is the adding, editing or deleting of records in a 
specific database table. 
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addpriorsourcedescasp 

Description: This page provides a user the ability to add source identifier description records in the 
prior_source_desc database (lookup) table, A source identifier description is a grouping in IMT's 
proprietary administrative hierarchy. 
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editpriorsourcedesc.asp 

Description: This page provides a user the ability to edit source identifier description records in the 
prior_source_desc database (lookup) table, A source identifier description is a grouping in MT's 
proprietary administrative hierarchy. 




allsetuptabs.asp 

Description: This page provides a user the ability to choose a lookup table to administer. Administration is 
the adding, editing or deleting of records in a specific database table. 
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welcome.asp 

Description: This page provides a user welcome message and offers an option to choose either 
administrative functions or reporting functions. 
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io gin.asp 

Description: This page provides a user the abihty to choose between creating a new report or selecing a 
saved report by selecting a record from the report_defs database table. 



choosecat,asp 

Description: This page provides a user the ability to choose a product(s) when creating a new report. This is 
the fnst selection in a series of selection required to create a new report. 
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choosecat2.asp 

Description: This page provides a user the ability to choose a report category when crearting a new report, 
A report category is a grouping of specific reports (styles). Report categories and reports are stored in the 
report_cat database table. 




chooserptasp 

Description: This page provides a user the abihty to choose a specific report (style) when creating a new 
report. A report (style) is a pre-defined view of database information. 
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reporta>asp 

Description: This page provides a user the ability pass a text string to the report to serve as a report name, 
A report name appears in the header of a new report and is stored in the report_defs table once a report is 
saved. 
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reportb.asp 

Description: This page provides a user the ability to pass source selections to a report. A source is a 
grouping in IMT's proprietary database hierarchy. 
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reportcasp 

Description: This page provides a user the abiHty to pass campaign type selections to a report, A 
campaign type is a grouping in MT's proprietary database hierarchy. 
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reportd.asp 

Description: This page provides a user the abihty to pass campaign selections to a report. A campaign is a 
grouping in IMT's proprietary database hierarchy. 




reporte.asp 

Description: This page provides a user the ability to pass panel type selections to a report. A panel type is 
a grouping in EMT's proprietary database hierarchy. 
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reportf.asp 

Description: This page provides a user the abihty to pass panel test type selections to a report. A panel 
test type is a grouping in IMT's proprietary database hierarchy. 




reportg.asp 

Description: This page provides a user the abihty to pass panel selections to a report, A panel is a grouping 
in IMT's proprietary database hierarchy. 
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saverpt.asp 

Description: This page provides a user the abihty to save a set of report selections by adding a record to the 
report_defs table. The report_defs table stores information about division, group, product, report group, 
report, report name, report location and report selections. 
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choosesaved.asp 

Description: This page provides a user the ability to locate a saved report from the report_defs table by 
filtering selections by division and group. Both division and group are groupings in IMT's proprietary 
database hierarchy 
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choosesavedb.asp 

Description: This page provides a user the abihty to locate a saved report from the report_defs table by 
filtering selections by product. A product is a grouping in IMT's proprietary database hierarchy 
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choosesavedc.asp 

Description: This page provides a user the abihty to locate a saved report from the report_defs table by 
filtering selections by report group. A report group is a grouping of saved reports. 




choosesavedd.asp 

Description: This page provides a user the abihty to locate and execute a saved report from the report_defs 
table by filtering selections by report name, A report name is the unique identifer of a record in the 
report_defs table. 
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DATABASE TABLES 

(in alpha order) 



• agent_defs 

• agents_summary 

• autosetup_campaign_def 

• autosetup_panel_def 

• autosetup_renewal_psdef 

• autosetup_scheme 

• avail_keys 

• campaigns 

• corp_info 

• corp_panel__sub_type 

• corpjanel_test_type 

• corp_paneI_type 

• effort_sequence 

• est__max_effort 

• expense__sets 

• keys 

• list_cats 

• list_names 

• Iist_segments 

• panels 

• prior_source_desc 

• prod_camp_status 

• prod_camp_type 

• prod__paneI_package 

• rlOl 

• rl01_flow 

• rl01_topline 

• r401_flow 

• r401_sunimary 

• rankings_base_info 

• revenue_set 

• rpt_cats 

• rpt_defs 

• source 

• source_descriptions 

• src_category 

• src_channel 

• starts 

• smnmaryjog 
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autosetup_renewai_psdef 
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_ „Y . \ 


avaiLkeys 


"dt valid to 


^maiidatetime 


4 


16 


Y 


availjceys 


rsrvrd 


i . 

varchar 


25 


_ 25 


Y 


avail_keys 


isourcejdentifier 


varchar ; 


S 


^ ^ 


Y 


avail_keys 


positioni 


yarchar 


3 


Z 


Y 


avail_keys 


positions 


char 




^ - \ 


Y 


;avail_keys 


positions 


char 


- ^ 


1 ^ 


_Y^ 


avail_^keys 


position4 


char 






Y 


ayail_keys 


positions 


char 






Y 


avail_keys 


position6 


char 






Y 


avail_keys 


position? 


char 






Y 


a^l_keys 




char 




\ . 


Y 


avaiLkeys 


positions 


char 







_ Y_ 


ayail^keys 


jjqsitionlO 


char _ 




\ 


Y 


;ayafl_keys 


recjd 


numeric 
varchar 


9^ 


18' 


N ; 


lavail^keys 


futfilIment_house 


_ _ ^ _ 50; 

3: 


50 




campaigns 


src indicator 


:char 


3' 


N ^ 


icampaigns 


src cat name 


varchar 


30 


30 


N * 


icampaigns 


productjd 


numeric ; 


^ 5. 


8 


N 


[campaigns 


|camp_type 


yarchar 


50' 


50; 


Y \ 


'campaigns 


camp^name 


varchar | 


25a 


250 


H ; 


campaigns 


camp_status_name 


varchar 


20' 


20 


; 


campaigns 


agt_code 


varchar 


10 


10 


Y i 


^campaigns 


;agt_descr 


yarchar . 


50; 


50 


Y 


campaigns 


!camp_date_fr 


datetime 


8, 


23 


Y - 


[ 

Icampaigns 


^camp_date_to 


datetime ^ 




23 


Y 


campaigns 


;e_set_name 


varchar 


50' 


50 


Y \ 


campaigns 


r set name 


varchar 


50' 


50^ 


Y 


campaigns 


[grp^name 


varchar 


50 


50 


Y 
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campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

campaigns 

corpjnfo 

^rp Jnfo_ 



gelc 
titie_name 
source^name 
recjd 

Newstand Sale 



corpjnfo 

corpjnfo 
corpjnfo 
corpjnfo 

corp_paneLsub_type 
corp_panel_sub_type 
corp_paneLsub_type 
corpj3anelJest_type 
corp_pane(Jest_type 
corp_panelJest_type 

cofp_panel_type 

cofpj>anelJype 
corpjDaneLtype 
dtproperties 
dtpropefties 

dtproperties 

dtproperties 

dtproperties 

dtproperties 

EFFORT.SEQUENCE 

EFFORT^SEQUENCE 

EFF OR T_S£QU£NCE 

EFFORT^SEQUENCE 

Est_maK_effort 

Est max effort 



Budgeted_voj 

Budgeted_g ross_pct 
campaign^code 
product Jd 

diy_name 

grp^narne^ 

tttle_name 
corpJnfo_descr 
rec_id 
rec id 



yarchar 
varchar 
numeric 
numeric 
numeric 



panel_sub_type_name 
pane!_sub_type_descr 
.recJd 

paneljest_type_name 
paneijest_type_descr 

recJ d 

pane!Jtype_narne 
panel_type_descr 
id 

qbjectfd 

property 

value 
lvalue 
version 
Productjd 
Effort indicator 



effort_ sequence 
effortjiesc 
Productjd 
souoejdentjfjer 
issue tdenttfier 



Est_max_e ffort 



Est_max_effort 

Est_max_effort 

€xperise_sets 

expense_sets 

expense_sets 

expense^sets 

expense_sets 

expense_sets 

expense_sets 

i'^^l^^-sets 

expense_sets 



prior_source Jdentifier 
max_effort 
min_sum__mail_qty 
productjd 

|e_set_name 

print^cost 



print_cpm_cpu 
print basis 
.merge^purge 
jTTien3e„cpj5_cpu_ 
merge_ba sis 
Itr cost 




numeric 
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expense, 

expense 

expense 

expense 

expense. 

expense 

expense 

expense, 

expense 

expense 

^expense 

expense 

expense 

expense 

expense 

expense 

expense 

expense, 

keys 

keys 

keys 

keys 

keys 

keys 

keys 



.sets 
_sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
. sets 
.sets 
.sets 
.sets 
.sets 
.sets 
.sets 
sets 



ltr_cpm_cpu yarchar 
Itr^basis _ varchar 
postage_out_cx)st numeric 

.P,^^9®-^t-9^iP_?Ry var char 

.PP^i?9?-^.L^^js„ ^ _ varchar 
postage Jn_cost numeric 
postageJn_cpm_cpu yarchar 
postageJn_basis yarchar 
pre mium _cost numeric 



„ _ _ pre mium _cpm_cpu 
premium^basis 
badpay_cost 
baclpay_cpm_cpu 

badpay_basis 

biliing_ cost 

btlling^cpm^cpu 

billing^basis 

subs_svc_costs 
subs_svc_cpa}_cpu 
subs SVC basis 



10 
20 

9 
10 
20 

9 
10 
20 

9 



varchar 



keys 
keys 
keys 
keys 

keys 
keys 
keys 
keys 
keys 
keys 



varchar 
numeric 
yarchar 
yarchar 
numeric 
yarchar 
varchar 
numeric 
yarchar 
Varchar 



JA 
20 
9 

10 

20^ 
_9 
10 

2o: 

9 
10 
20 



exp_fixed_costs 

exp_fixed_cpm_cpu 

exp_fixed_basis 

exp_other_costs 

^)9_other_cprn_cpu 

exp_other_basis 

recjd 

fun_prcmo_key 
dt_valid_from 

panel_name 

camp^narne 



nunrienc 
yarchar 
varchar 
numeric 

jirarchar 

yarchar 
numeric 
yarchar 
smalldatetime 

yarchar 

varchar 



.„ „9 
10 
.20' 
9 

20 
9 

25 
_A 
250 
250 



10 
20 
1t 
10 

J20 

11; 

10 
20 
1l! 
10 

20: 
If 
10 

.20. 
JlL 

io| 

20' 

ir 

1.0 
20' 
, 111. 

10; 

2p! 

11 

10 

20, 
18 
25; 
16 

250_ 

250 



!dt_valid_to 
|src_indicator 
|src_cat_name 
productjtd 



smalldatetime 

tt[ar_ 

yarchar 
numeric 



_ _4; 

3 

9' 



_5_set_narne varchar 

)istjd 

ievel1_expense 
1ist_cost_ronout_cpm 
list_cost_actuaLcpm 
fixed _exp ense numeric 



numenc 
numeric 
numeric 
numeric 



50: 
9 

9^ 
9 
9' 



Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y^ 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 

Y 
Y 
Y 
Y 
Y 
Y 
N 
N 
N 
N 

N 

16 N 

?! N 
30_ N 

ia fl 

Y 



^subtotaLflag 
Ievel2_expense 
r_set_name 
Ieve i3_ex pense 



■levell ^r evenue 



ieveI2_revenue 



yarchar 
numeric 
varchar 
num eric 
num eric 
numeric 



_6 
9 

5o; 

_9 
9' 



50 

10' 
12^ 
14 

j4 

18 

6^ 

12: 

50 

.12; _ 
J2_ 
12 



Y 
Y 
Y 
Y 

X. 
N 
Y 
Y 
Y^ 
Y 
Y 
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keys 


Ievel3_revenue 


numeric 


y 




Y 
T 


keys 


p_key_^descr 


varchar 


2ou 


OCA 


V 


keys 


panei_type 


varchar 


50 


50 


Y 


keys_ 


P^Q^j-Subtype^ 


varchar 


50 




Y 


keys 


test__type 


varchar 


DU 


□u 


Y 

T 


keys 


panel^offer 


varchar 


on 


OA 
ZU 


Y 


keys 


paneLoffer__price 


money 


o 
0 




V 
T 


keys 


paneljDkg 


varchar 


^0 


50 


Y 


keys 


panel_pfemium 


varchar 




OA 


Y 
T 


keys 


panel_date_start 


datetime 


8 


23 


Y 


keys 


pane!_date_end 


datetime 


8 


23 


Y 


keys 


gfp_name 


varchar 


50 


50 


Y 


keys 


trtle_name 


varchar 


OU 


CA 


V 
T 


keys 


source name 


varchar 


250 ^ 


250 


Y 


keys 


camp_type 


varchar 


OU 


OU 


Y 
T 


keys 


camp_status_^n ame 


varchar 




OA 
ZU 


Y 
T 


keys 


agt_code 


varchar 




^ A 


Y 
T 


keys 


agt_descf 


varchar 


50 


50 


Y 


keys 


camp_date_fr 


datetime 


8 


23 


Y 


keys 


camp_dateJo 


datetime 


8 


23 


Y 


keys 


key_mail_qty 


'numeric 




18 


Y 


keys 


mai(_qty_override 


decimal 


9 


18 


Y 


keys 


mergejDurge^qty 


numeric 


9 


18 


Y 


keys 


nst_cost_basis 


varchar 


25 


2o 


Y 


keys 


list_cost_factor 


decimal 






Y 

T 


keys 


iist_cat_name 


varchar 


250 


250 


Y 


keys 


listen ame 


varchar 


OCA 


OfiA 


Y 

T 


keys 


list_segment_name 


varchar 


250 


OCA 

2ou 


Y 


keys 


recjd 


numeric 






N 


key^ 


opti9jial_effqrt_id 


varchar 


50 


50 


Y 


keys 


Newstand Sale 


numeric 


9 


18 


Y 


keys 


newstand_sale_marker 


char 


1^ 


1 


Y 


keys 


Budgeted_gfoss_jDct 


inumeric 


1 9' 


18 


Y 


keys 


Budgeted_vol 


numeric 


Q 


\ 0 


Y 

T 


keys 


date_assigned 


'datetime 


8 


2^ 


Y 




cannpaign_code 


varchar 


50 


50 


Y 


keys 


panel_code 


varchar 




§0 


Y 


keys 


tJbusemame 


varchar 


_ _ : 50; 


50 


Y 


keys 


order_qty 


Int 


_ A 


10 


Y 


keys 


dlst_qty 


Int 


5 4 




. Y 


list cats 


product Jd 


_ ^numeric 


9 


18 




list^cats 


list_cat_name 


varchar 


250_ 


250 


N 


list^cats 


list_cat_descr 


varchar 


250 


250^ 


Y 


Iist_cats 


rec_id 


numeric 


: - .9 


18 


N 


list^names 


Pfoc}M5?-iL- - 


numeric 


9 






list names 


list^name 


varchar 


250 


250 




lfst_names 


list_name_descriptton 


varchar 


250 


250 


Y 
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Tec_!d 


numeric 


y 


1 0 


N 


ii5i_5cgrncnis 


proaucx_{a 


numeric 


n 

y 


1 0 




Iist_segments 


list_segment_name 


varchar 


250 


250 


N 


Hst_segnnents 


iist_segment_description 


varchar 


250 


250_ 


Y 


«5i__5cg rnenis 


tec id 


numeric 


Q 


To 


FN 


logs 


product^id 


varchar 






Kf 

N 


logs 


login 


iVarchar 




50 


N 




log_timestamp 


'datetime 


* 8 


23 


N 


logs 


action 


Varchar 


50' 


50 


Y 


logs 


actio n_des criptio n 


varchar 


255 


255 


Y 


logs 


Tailed_iiag 


varchar 


10 


10 


Y 


logs 


trace^on 


varchar 


10 


10 


Y 


mods 


uCKei^ia 


numeric 


y 


4 Q 

to 


N 


mods 


mod_app_name 


varchar 


50 


50 


N 


mods 


mod date 


smaildatetime 


A 


ID 


T 


mods 


moa__aescnpiion 


varcnar 






N 


mods 


mod^notes 


varchar 


OCA 

i ^00 


OCA 

250 


Y 


panels 


camp_name 


varchar 


250 


250 


N 


panels 


srcjndicator 


_|char 


. 3; 


3 


N 


panels 


panei_name 


Varchar 


250 


250 


N 


panels 


src_cat_name 


varchar 


30 


30 


N 


panels 


product_id 


numeric 


_ 5^ 


8 


N 




panel__type 


varchar 


OU 


50 


Y 


panels 


e_set_name 


varchar 


50 


50 


Y 




panel_subtype 


varchar 


cn 
OU 


5U 


T 


panels 


r_set_name 


varchar 


50 


50 


Y 


panels 


test_type 


varchar 


50 


50 


Y 


panels 


panel_offer 


varchar 


20 


20 


Y 


panels 


panel_offer_pnce 


money 


8 


19 


Y 


panels 




varchar 


50 


50 


Y 


panels 


panel __premiijm 


varchar 


20 


20 


Y 


panels 


pa ne !_d ate__sta rt 


datetime 


[ _ 8 _ ^ 


23 


Y 


panels 


pa ne l_date^e nd 


jdatetime 


J „ _ 8 


23 


Y 


panels 


grp^name 


'varchar 


I 50 


50 _ 


Y 


panels 


title name 


varchar 


50 


50 


Y 


panels 


source name 


varchar 


' 250 


250 


N 


panels 


camp_type 


varchar 


. 50^ _ 


50 


Y 


panels 


camp_status_name 


varchar 


20 


20 


Y 


panels 


agt_code 


varchar 


■ 10 


10 


Y 


panels _ 


agt_descr 


varchar 


50 


50_ 


Y 


panels 


camp_date_fr 


datetime 


8 


23_ 


Y 


panels 


camp^datejo 


;datetime 

i 




23 


.Y 


panels 


recjd 


numeric 


9 


18 


N 


panels 


newstand_sale_marker 


char 


1 


1 


Y 


panels 


Newstand Sale 


numeric 


9 


18 


Y 


panels 


Budgeted_gross_pct 


numeric 


9 


18 


Y 


panels 


Budgeted_vol 


numeric 


9' 


18 


Y 
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paneis 


campaig n_code 


varchar 


50 


50 


Y ■ 


panels 


panel_code 


varchar 


50 


50 


Y 


paneis 


order_qty 


int 


4 


10 


Y 


jR^nels 


dist_qty 


int 


. ..1 _ 


10 


Y 


Prior_sou rce_desc 


product_id 


numeric 


5 


" 9 


N 


Prior_source_desc 


prior_source_identifier 


varchar 


2 


2 


N , 


Prioj_source_desc 


prior_source_desc 


varchar 


20 


20 


Y_: 


Prior_source_desc 


ya!id_from_date 


datetinne 


8' 


23 




Prior source desc 


valid to date 


datetime 


8 


23 


Y : 




rec id 


numeric j 


Q 

y__ 


18 


H ' 


r nor_so u rce_aesc 


bil 1 in g__cu r_s rc_d es c 


varchar 


2o5 


255; 


Y 


r riOf__5 0 u rce^uesc 


agent_src__desc 


yarchar 


OU 


50 


Y 


Prio r__source___desc 


model^source 


varchar 


OO 


50 


Y 


Prior source desc 


model source cat 


varchar 


50 


50 


Y : 


p rod_cam p_sta tus 


rec id 


numeric 


9 


18 


N 


prod_camp_status 


product^id 


numeric 


9 


18 


_N : 


p rod^cam p_stat u s 


cam p__status_na m e 


varchar 


50^ 


50^ 


N _ ' 


p rod_ca m p_statu s 


ca m p__status_descr 


varchar 


250' 


250 

- 1- 


Y ' 


p rod^ca m p_ty pe 


rec^id 


numeric 


9 


18 


N 


prod^cam p_type 


product_id 


numeric 


9 


IS 


N 


prod_camp_type 


camp_type_name 


varchar 


50 


5d 


N_ 1 


p rod^camp_type 


cam p_typ e_descr 


varchar 


250^ 


250 


Y ; 


prod_pane!j3ackage 


productjd 


numeric 


9 


18 


N 


prod _j)ane!_package 


'package_name 


varchar 


50 


50 


N 


pjod_panel ^package 


package_description 


varchar 


250 


250 


Y 


prod_panel_package 


recjd 


numeric 


9 


18 


N 


r101 


rct_rec_num 


decimal 


9 


18 


N 


r101 


r101_reorg_date 


smalldatetime 


4 


16 


N 


r101 


productjd 


numeric 


9 


18 


N . 


r101 


r101_key 


yarchar 


25 


25 _ 


N ' 


riui 


source identifier 


varchar 


50 


50 


Y 


rIOl 


issuejdentifier 


varchar 


3 


3 


Y 


r101 


pricr^sourcejdentifier 


char ' 


2 


2 




r101 


^effort identifier 


char 


i 


i; 


Y : 


noi 


spiitjdentifier 


varchar i 


10 


10 


, — I 

Y i 


r101 


mail_qty 


numeric ' 


9 


18 


Y : 


r101 


se!ect_date 


smalldatetime 


4 


16' 




r101 


key_descr 


yarchar 


50 


50 




r101 


subs_this_week 


^numeric 


9 


18 


Y 


nui 


subs to date 


numeric 


9 


18 


Y 


r101 


gross_subs 


numeric 


9 _ 


18 


Y 


rIOl 


gross_subs_pct 


decimal 


5 


6 


Y 


r101 


.net_subs 


numeric 


9 


18 


Y 


r101 


net_subs_pct 


decimal 


5 


6 


Y 


f101 


tot net subs 


numeric 


9_ 


18 


Y ' 


r101 


tot_net_subs_pct 


decimal 




6 


Y 


r101 


pct_credit 


numeric 


9 


18 


Y 
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r101_flow 
rl01_flow 
rlOIJqw 
r101 flow 



riri1 
1 I U 1 


p ci_crca^re new 


decimal 


0 


rini 
r f u 1 


1^^^^ rxi^i ■firr^'f 

crea_pay__ami 


decimal 


c 
0 


r101 


cred_pay_pct 


numeric 


9 


r101 


avg_net_tmi 


decimal 


5 


r^n^ 
ti\j i 


3vg^n et_trm_va ! ue 


decimal 


5 


r101 


a\/n ff\i n^f trm 


llUf ncil(«> 


Q 


r101 


Aun tnf n^f trm v/^lti^ 




Q 


r101 


subsj3hone 


numeric 




lid 


subs c card 


numeric 


9 


rim 


inolali 1 ol 




A 


rini 


in5iaii_ 1 si_^ioiai 


ini 


4 


rIOl 




ilU 


A 


rini 

1 1 U i 




aecimat 


0 


rlOl 


sub_years_gross 


dedmal 


i 9 


rini 

1 1 U 1 


5U D_yea rs^g ru5s_^io t_n ei 


oecimai 


Q 


rini 


y 1 oss^s u u_re ve n uc 


uecimai 


1 Q 

y 


i IVJ 1 


net sub revenue 


decimal 


; y 


rini 


Qross^sub^copies 


decimal 


! y 


r101 


net_sub_copies 


decimal 


9 


nOl 


;cash_subs 


numeric 


9 


nUi 


est^max^eff^ma i i__qty 


decimal 


i 9 


noi 


grcss^cred^subs 


'numeric 


[ ^ 9 


r101 


net_cfed_^subs 


dedmal 


9 


riOi 


Tulfillm€nt__title_name 


varchar 


50 


r101 


g rossJist_rentaLqty 


dedmal 


9 


rini 

1 t U 1 


n et_l is t_re n tal_<5ty 


dedmal 


n 

a 


r101 


packagejdentifier 


char 




r lU 1 


Key^aescrt 


varchar 


OU 


r101 


donees_todate 


numeric 


9 


rIOl 


total orders 


numeric 


; 9 


nui 


tot_orde r_pct_rsp nee 


numeric 


9 


nui 


re new^s tibs_pct 


numeric 


9 


r< n't 


Tutfillment house 


ivarchar 


_ ! 50 


r101_flow 


fct_r€c^nuni 


,dedmal 


; 9_ 


r101_flQw 


r101 reorg date 


smalldatetime 


4 


nui_TiOW 


product_id 


Inumeric 


9 


nU i_riow 


/1 01_key 


varchar 


: 25 


r101_flow 


sourcejdentifier 


varchar 


L 50 


r101_fiow 


jssuejdentifier 


varchar 




r101_flow 


prior_sourcejdentifier 


char 


j_ 2 _ ^ 


r101 flow 


effort identifier 


char 


1 


Vl01_fiow 


split Jdentifier 


jvarchar 




r101_flow 


malLqty 


numeric 


9 



se]ect_date 
key^descr 



smalidatetime 
varchar 



4 
50 



subs this week 



subs to date 



numeric 



6 


Y / 


6 




18 


Y 


6 


Y 


- 6 


Y 


18 


Y ' 


18 


__Y ^ 


18 


_ Y_j 


18 


Y 


1Q 


Y 


_ jp! 


Y. J 


10 


Y J 


6; 


Y 


12 


Y 


12 


Y : 


18; 


Y ; 


_._18: 


Y ; 


ia 






Y 




Y ' 




Y__i 




. „ „ Y J 


--1?; 


Y__; 


50 


Y 


10 


Y 


10; 


Y 


1 


Y 


50 


Y 


18 


Y 


16 


Y _ 




Y_ 


18; 


Y 


50 


_ Yj 


18; 


N i 


""lel 


N ' 


is! 


N : 


25; 


N„ 


50 


Y 






i 


Y ' 




Y 


10, 


Y„ 


18 


Y 


16 


Y ' 


50 


Y 




Y 


18 


Y 
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r1 ni flnw 
1 1 U t _) f uw 


/ir*^cc eiiV\o 


numenc 


Q 


18 


Y 


i 1 u I t tow 


y ross_suDS pci 


Qecimai 




u 


Y 


r101_flow 
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Add autos€tup.asp 

<%@ Langu£^e= VBScript %> 
<!-#include file="../support/global_constants.asp" -> 
<{-#include file=*'../support/dbConnection.asp'' -> 
<!-#include rile="../support/adoUtils.asp'' -> 
<!-#include file="../support/srcTab.asp'' -> 



<% 

if Request formCIsLoaded") = "true** then 

l_product Jd - SessionCPRODUCTJD") 
!_srcJndicator = Request.fonnCP_SRC_INDlCATOR*') 
l_source_naine - Request fonnCP_SOURCE_KAME") 
if i_source_name - "0" then l_source_name - "Undefined'* 

objRST.open "select src_cat_naine from source v^^ere source_name = "* & l_source_name & strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(O) else i_src__cat_name - "Undefined" 
objRSTxiose 

l_valid_from - RequestformCP^VALID^FROM") 
I_validJo = RequestForm("P_VALID_TO") 

]_setup_mask ^ RequestFonnrP_SETUP_.MASK:") 
l_e__set_name = RequestFormCP_E,SET_NAME-) 
if Le_set_name = "0" then l_e_set_name = nuU 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = ''sp_add_autosetup_scheme'' 

objCMD.CommandType = adCmdStoredProc 

objCMD.Parameters.Refresh 

objCMD.Parameters(I).Value = l_productJd 

objCMD.Paramcters(2). Value = i_src_cat_namc 

objCMD.Parameters(3). Value = l_srcJndicator 

objCMD.Parameters(4). Value = l_source_name 

objCMD.Parameters(5)- Value l_vaIid_from 

objCMD.Parameters(6). Value = l_valid_to 

objCMD.Parameters(7)- Value = l_setup_mask 
objCMD.Parameters(8). Value = l_e_set_name 
Set TempNonSessionVar = objCMD.ExecuteQ 
response.redirect ("tabautosetup-asp") 
end if 



%> 

<html> 
<head> 

<titIe>IMT Networlc</title> 
</head> 

<body bgcolor^-#99CCFF'' vlink="000000" iink="003366-> 



<form method=**post'' action="add_autosetup.asp'' namc=<orml id=forml> 
<table width-''640'* bordei="0" ceilpadding="2''> 
<tr valign=="top''> 

<td align="left*' width^^MO" colspan=*'3"ximg src=^",7graphics/addl222.gir width=''26" height='*14"x/td> 
</lr> 

<tr valign=''top''> 
<td align^^left" width="640'' colspan=''3*'> 
<pxnobr> 

<img src-".7graphics/blankl222.gir width="20'' height="l6"xinig src-"../graphics/blankl222.gir width="20" 
height-" le-'ximg src=" Jgraphics/blanki222.gir width="20" height="16"ximg src=".ygraphics/blankl222.gir width=''20" 
height=-16*'ximgsrc-",ygraphics/blankl222.gir width="20*' hei^t="l6-ximgsrc-"../graphics/blankl222.gir width-"20" 
height-" i6"ximg src-". ./graphics/blank 1222.gif* width=''20'* height=-16''> 

<input type="image" src=". . /graphics/submit 1222.gir width-"54'' height^Me" border="0" a!t-"Submit to Database"> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 3 of 200 



IMT Subscription Marketing Reporting System 



<imgsrc-"„/graphicsA)lankl222.gif width^^IO" height=**i6"><img src=r-/graphics/blankl222.gir width-'^O" 
height="16''><font face-" Verdana, Arial, Helvetica, sans-serif size=M"><a href="Ubautosetup.asp">Retum 
to AutoSetup Parameters Menu</aX/font><nobr> </p> 
<tablewidih=-265'' border-"0" celispacing="3" cellpadding="2"> 
<tr> 

<td bgcolor=-003366" height="25'* width="166" align=''center"> 
<div aIign-**center"xfont face=" Verdana, Arial, Helvetica, sans-serif coIor-''#FFFFFF"xbxfont size=''l''>SOURCE 
NAME </fontx/bX/fontx/div> 
</td> 

<td bgcolor="#99CCFF'' height="20'' width=''360** align=''left*'> 
<div align-"Ieft"xfont face="Verdana, Arial, Helvetica, sans-serif color=*'#FFFFFF'*xbxfontsize-"r 
coloi=''#000000''> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, '•P_S0URCE_NAME^6. "SELECT SOURCE", 

objRSTxlose 

%> 

</fontxA>X/fontx/div> 

</td> 

</tr> 
<tr> 

<td bgcolor='*003366*' height="25'' width^MP align="center''> 
<div align-^center^xfont face-" Verdana, Arial, Helvetica, sans-serif color--#FFFFFF"><bxfont 
size--r>SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

</td> 

<td bgcolor-''#99CCFF" height-"20- width="360" align=-Ier> 

<div aiign=-left'*xfont face=-Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"><b><font size-"!" 

color=''#000000''> ^ ^^^^ . 

<input type^TEXT" NAME=*P_SRC_[NDICATOR' id=0 maxlength="30'' size="6 > 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor=''003366'' height="25'' width^MK align="center"> 
<divalign=''center-xfont face-** Verdana, Arial, Helvetica, sans-serif color-''#FFFFFF"xbxfontsize=T> VALID 
FROM </fontx/bx/font> 

</div> 

</td> 

<td bgcolor=''#99CCFF" height--20'' wtdth="360" align-''ler> 
<div align-"left"xfont face="Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF''xbxfont sizc=T 
color=''#000000''> 

<input type=TEXT'' NAME=='P_VALiD_FROM' id=0 maxlength="30" si2e='*15"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366- height="25*' width="4r align-"center''> 

<div aIign=*'center''xfont face="Verdana, Arial, Helvetica, sans-serif color-'*#FFFFFF''xbxfont size=M">VALID TO 
</fontx/bx/font> 

</div> 

</td> 

<td bgcoloi="#99CCFF" height=''20" width=^"360" align="leff > 
<div align="Ieft"xfont face=" Verdana, Arial, Helvetica, sans-serif coior="#FFFFFF''xbxfont si2e=*'r 
color-"#000000"> 

<input type=-TEXT" NAME='P_VALID_TO* id=0 maxlength-"30'* size="I5''> 
</font></bxyfont> 

</div> 
</td> 

</tr> 
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<tr> 

<td bgcolor="003366" height="25" width-"4r align="center"> 
«iiv align='^center'*xfont face='' Verdana, Arial, Helvetica, sans-serif coior-''#FFFFFF'*xbxfont size-"! >SETUP 
MASK </fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF* height="20" width-*'360'' align="]eft"> 
<div align="left"xfont face=*' Verdana, Arial, Helvetica, sans-serif coloT=**#FFFFFF"xbxfontsize-"r 

^nputtype^TEXr NAME-*P_SETUP_MASK' id-0 maxlength^'SO" size=''15*> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor-"003366'' height-'75" width-"4 1 " align-''center''> ' r^^^^rct. 

<div align="center"xfont face="Verdana, Ariai, Helvetica, sans-serif coIor=''#FFFFFF'*xbxfont si2e=- r >EXPENSE 
SET NAME</fontx/bX/font> 

</div> 

</td> 

<td bgco!or-'*^99CCFF'* height^-SO" width^-SeO" align="leff > 
<div align="lerxfont face--Verdana, Arial, Helvetica, sans*serif coIor="#FFFFFF"xbxfont size-T 
color="#000000"> 

<% 

strSQL = "select c_set_name FROM expense_sets where productjd = * & 

SessionCPRODUCT ID") & " order by e_set_name ^ o • , - 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOpUmisuc 
showQucryListBox objRST. '•P_E_SET_NAME".6, "SELECT EXPENSE 

SET", l_e_set__name 

objRST.close %> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

</table> 

<p> </p> 

</td> 
</tr> 
</table> 

<input type="HIDDEN" value="true" name=="IsLoaded''> 
</form> 
</body> 
</html> 
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add campaign def.asp 

<%@ Language=VBScript %> 
<!- #include file="-./suppon/g!obal_constants.asp'' -> 
<!- #include file="../support/dbConnection.asp" -> 
<!- #inciude fiie=**../support/adoUtils,asp" -> 
<!- ^include fUe=".7support/srcTab.asp" -> 



<% 

if RequestformC^IsLoaded") = "true" then 

Ijproductjd - SessionfPRODUCTJD") 

l_campaign_code - requestfonn(T_CAMPAIGN_CODE'') 

l_campaign_description = requcst.formC^P.CAMPAIGN.DESCRIPTION") 

l__src_cat_name - RequestfonnCP_SRC_CAT_NAME") 

if not(Ls7c_cat_aaine > *'0*') then l_src_cat_naine = 

l_campaign_date = requestformC'P_CAMPAIGN_DATE'') 

if not{l_campaign_date > " ") then I_campaign_date = null 

i_paneLscheme"-Request.FormCP_PANEL_SCHEME") 

if not(l_pane]_scheme > "O") then l_panel_scheme = 

objCMD.ActiveConnection ^ strSQLOLEDB 
objCMD.CommandText = *sp_add_campaign_der 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters.Refresh 
objCMD.Parameters(l). Value = Ijiroductjd 
objCMD.ParameteTs(2).Value = l_cainpaign_code 
objCMD.Paraineters(3).Value ^ l_campaign_description 
objCMD.Parameters(4). Value = !_src_cat_name 
objCMD.Parameters(5).V^ue = l_campaign_date 

objCMD.Parameters(6). Value = l_panel_scheme 

Set TempNonSessionVar = objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<titIe>lMT Network</titio 
</head> 

<body bgco!or='*#99CCFF" viink-"000000'' link=''003366"> 



<fonn method^^post" action='*add_campaign_def asp" name=fonnl id=fonnl> 
<tabie width=''640'' bordcr="0** cclipadding=''2"> 
<lr vaiign=''top-> 

<td align=-|eft" width="640" coIspan=="3"ximg src=".ygraphics/addl222.gir width='*26" height-" 14**X/td> 
</tr> 

<tr valign=''top''> 

<td align^^lcft" width=''640*' colspan="3*'> 
<pxnobr> 

<imgsrc-",./graphics/blankl222.gif' width-''20" height-" le^ximg src=".7graphics/bIankl22Zgir width=''20'' 
height-" 1 6"ximgsrc=".,/graphics/biankl222.gir width-''20'' height=''16''ximgsrc=r7graphics/b[ankl222.gir width=''20' 
hei^t-"i6"ximg s^c=^igraphtcs/blankl222.gi^ width-''20" height="l6''ximg src-r7graphicsn)lankl222.gir width=''20' 
hei^t-''16"ximg src=".7graphics/blankl222.gir width="20'* height-" 16"> 

<inputtype=''image" src-",ygraphics/submitl222.gir width-"54'' height=''l6" border-"0*' alt-^Submit to Database''> 
<imgsrc=",ygraphics/blankl222,gir width-"20'* height-" 16''ximgsrc=". ./graphics/blank 1 222.gir width="20" 
height-" la^'xfont face=" Verdana, Arial, Helvetica, sans-serif size="-4"xa href="tabautosetup.asp">Retum 
to AutoSetup Parameters Menu</ax/fontx/nobr> </p> 

<tabie width="265" border-^0" cellspacing="3" cellpadding="2"> 
<tr> 

<td bgcolor-"003366" height="25" width-^iee" align=''center"> 
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<div align="center"><font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=T>CAMPAIGN 
CODE </fontX/bx/font></div> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360'* aiign="ieft"> 

<div align=*'ieft"><font face='' Verdana, Arial, Helvetica, sans-serif color^''#FFFFFF"xbxfont size=T 

color-"#000000"> , , . 

<input type="TEXT'' NAME-'P_CAMPAIGN_CODE' id=0 maxlength^^SO" size='*6"> 

</fontx/bx/font></div> 

</td> 

</tr> 



<tr> 

<td bgcobr^-OOasee" height="25" md\h^"\66'' align=*'center*> 

<div align-''center''xfont face=" Verdana, Ariai, Helvetica, sans-serif coIor-''#FFFFFF''xbxfont size-T>CAMPAlGN 
DESCRIPTION </fontx/bx/fontx/div> 
</td> 

<td bgco[or-="#99CCFF'' height=*'20'' width="360'' align="left''> 
<div a!ign=neft''xfont face=*' Verdana, Arial, Helvetica, sans-serif coior=''#FFFFFF**><bxfontsi2e=''l'' 
coior=''#000000"> 

<inputtype-''TEXT" NAME-*P_CAMPA1GN_DESCRIPTI0N' id=0 maxlength="50'' 

size="50''> 

</fontx/bx/fontx/div> 

</ld> 

</tr> 



<tr> 

<td bgcolor='*003366" height=*25*' width='*4r align=*'center-> 

<div align^-center^xfont face=*'Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF*'xbxfont 
size-" r>SOURCE<br> 

CATEGORY </fontx/bx/font> 
</div> 

</td> 

• <td bgcolor=''#99CCFF'' height="20" width=="360*' align="left'*> 
<div align="leff xfont face-"Verdana, Ariai, Helvetica, sans-serif color-"#FFFFFF"xbxfont size=*'r 
color="#000000"> 

<% strSQL - "select distinct src_cat_name from source where producijd - " & 
Session("PRODUCTJD") & order by src_cat_name" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
shovvQueryListBox objRST, "P_SRC_CAT„NAME\6, "SELECT SOURCE 

CATEGORY", l_src_cat_name 

objRSTxIose 

'<inputtype=TEXT" NAME-'P_SRCJDENTIFIER' id=0 maxIength=-30" 

size=''6"> 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 



<tr> 

<td bgcolor-"003366" heighlr="25" width="4r align-"center*'> 
<div align="center"xfont face^^Verdana, Ariai, Helvetica, sans-serif coIop="#FFFFFF"xbxfont size="r>CAMPAIGN 
DATE </fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width-"360" align="left" > 
<div align="left" xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont sizc^"!* 
color="#000000"> 

<input type-"TEXT" NAME^'P_CAMPAIGN_DATE* id=0 maxlength="30" si2e="6"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 



<tr> 

<td bgcolor="003366" height="25" width="4r align="center"> 

<div align="center"xfont face=''Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1 ">PANEL 
SCHEME </fontx/bx/font> 
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<Jd\v> 

</td> 

<td bgcoioT=''#99CCFF" height="20- width="360" align="left"> 
<div aiign="Ieft"><font face^'^Verdana, Arial, Helvetica, sans-serif color="#FFFFFF'*xbxfomsi2e^"l" 
color="#000000"> 

<% strSQL = "select distinct panei_scheme from autosetup_pancI_def where productjd 
= " & Session("PRODUCTJD") & order by panel_scheme" 

objRST-open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_PANEL_SCHEME^6, "SELECT PANEL 

SCHEME", i_panel_scheme 

objRST.close 

'<input type^^TEXT" NAME^T^SRCJDENTIFIER' id=0 maxIength^-SO" 

size=''6"> 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 
</table> 

<input type='' HIDDEN" value="true" name=''IsLoaded''> 
</fonn> 
</body> 
</htin!> 
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add panel def.asp 

<%@ Language=VBScript%> 
<!- # include fae=^./suppo^t/giobai_constants.asp•' -> 
<1- # include file=".isupport/dbConnection.asp'' -> 
<!-# include file=\isupport/adoUtils,asp- -> 
<!-#include fiie=",7support/srcTab,asp" -> 



<% 

if Request form("IsLoaded") = "true" then 

l_productJd - SessionCPRODUCTJD") 
i _panel_scheme = requestformCP_PANEL_SCHEME^) 
1 _paneLcodes = fequestformrP_PANEL_CODES") 
l_panel_name - Request.form("P_PANEL_NAME'') 

objCMDActiveConnection ^ strSQLOLEDB 
objCMD.CommandText = "sp_add_panel_der 
objCMD.CommandType = adCmdStoredPrOc 
objCMD.Parameters.Refrcsh 
objCMD.Parameters(!). Value ^ l_productJd 
objCMD.Parameters(2).Vaiue = !_panel_scheme 
objCMD.Parameters(3). Value = l_panel_codes 
objCMD.Paran:ietcrs(4), Value = l_panel_name 

Set TempNonSessionVar = objCMD.ExecuteQ 
response.redirectrtabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>IMT Network</titie> 
</head> 

<body bgcolor="#99CCFF'' vlink="0OOOOO" link="003366"> 



<form method=*'post'' actions-add j)anel__def asp" name=formI id==forml> 
<table width=''640'' border=*'0'' cellpadding="2"> 
<tr valign=''top'*> 

<td align^-Ieft" width=''640" coIspan=**3"ximg src=\ygraphics/addn22.gir width-''26" height=M4"x/ld> 
</tr> 

<tr vaiign=''top''> 

<td a]ign-''left- width^^'640'' colspans**3"> 

<fmg src^" ygraph!CsA)lankl222.gir width=''20*' hcight=''16"ximg src-^./g^aphics^lankl222-gi^ width=''20" 
heidit=-l6'*ximgsrc=-../graphics^Iankl222,gir width="20'* height="l6-ximgsrc--.7graphics^lankl222.gir width-''20" 
height='' !6"ximg src=".igraphicsA)lankl222,gir width="20« height=''16''ximg src=rygraphics^Iankl222.gir width-"20" 
height='*16-ximgsrc-*.7graphics^lankl222.gir width=''20'' height-" 16''> 

<input type-^image" src-" Jgraphics/submitl222.gir width=''54'' height^ne" border=''0^ alt-^Submit to Database''> 
<img src=",7graphics^lanfcl222.gir width="20'' height-" le^ximg s^c=^yg^aphicsA)lankl222.gl^ width-''20" 
height-" 16"xfont face="Verdana, Arial, Helvetica, sans-serir size="-4"xa hre^"tabautosetup.asp">Retum 
to AutoSetup Parameters Menu</aX/fontx/nobr> </p> 
<table width-"480" bordcr="0" cellspacing-"3" cellpadding-"2"> 
<tr> 

<tdbgcolor-"003366"hcight="25"width="166"align-"center"> 
<div align="center"xfont face-"Verdana, Arial, Helvetica, sans-serif coIor-"#FFFFFF"xbxfont size- 1 >PANEL 
SCHEME </fontx/bx/fontx/div> 
</td> 

<td bgcoloi="#99CCFF" height="20" width-"360" align="ieft"> 
<div align="left"xfont face-"Verdana, Ariai, Helvetica, sans-serir color="#FFFFFF"xbxfont sizc='' 1" 
color-"#000000"> 

<input type="TEXT" NAME='P_PANEL_SCHEME' id-0 maxlength="50" size="50"> 
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</fontx/bx/font></div> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height=*'25" width="l 66" align=**cemer"> 

<div align=*'center"xfont face-" Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF"xbxfont size-** r>P ANEL 
CODES </fontx/bx/fontx/div> 
</td> 

<td bgcolor-"#99CCFF" height-"20" width="360'' align=''Ieft-> 
<div align=''left"xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont sizc-M" 
color=''#000000''> 

<input type="TEXT** NAME=*P_PANEL_CODES' id=0 maxlength="250" size=-100"> 
</fontx/bx/fontx/div> 

</ld> 

</tr> 
<tr> 

<td bgcolor=''003366'' height=''25*' width^^" i 66" align=''center''> 
<div align^-cemer^xfont face=" Verdana, Arial, Helvetica, sans-serif color=*'#FFFFFF"xbxfont size=''l'*>PANEL 
NAME </fontxybx/font> 

</div> 

</td> 

<td bgcolor-"#99CCFF'' height="20'' width^^SeO" align=neft"> 
<div aIign=^"left'*xfont face=''Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF''xbxfont size^T 
colot="#000000"> 

<input type=-TEXT'' NAME=T_PANEL_NAME' id-0 maxlength^^SO" size=-50"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 
</table> 

<input type-^HlDDEN** value-^true** name="IsLoaded''> 
</form> 
</body> 
</html> 
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add renewal psdef.asp 

<%@ Language= VBScript %> 
<!- ^include fiie='*../support/global_constants.asp" -> 
<!- # include file="„/support/dbConnection.asp" -> 
<!- #inciude file=".,/support/adoUtils.asp" -> 
<!- # include fiie=''../support/srcTab.asp" -> 



<% 

if RequesLformC'IsLoaded") = "true" then 

1 jjroductjd = SessionCPRODUCTJD") 

l_src Jndicator = Request.formCP_SRC_IND[C ATOR") 

I j3rior_srcJndicator = RequestformCT.PRIOR.SRC^INDICATOR") 

l_source_name = Requestfonn("P_SOURCE_NAME'') 

objRST.open "select src_cat_name from source where source_name = '" & l_source_name & strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(O) else l_src_cat_name = "Undefined" 
objRST.close 

l_valid_from = Request. formCP_VALID_FROM*') 

I_vaiidjo = RequestFonn("P_VALID_TO") 

response.write(l_prior_src_indicator) 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = *sp_add_renewalj)sder 
objCMD.ConimandType = adCmdStoredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l). Value = l_product_id 
objCMD.Parameters(2). Value = l_src_cat_name 
objCMD.ParametersCS). Value - l^srcjndicator 

objCMD.Parameters(4). Value = !_prior_srcJndicator 
objCMD.Parameters(5). Value = I_source_namc 
objCMD.Parameters(6). Value = i_vaIid_from 
objCMD,Parameters(7), Value = l__validJo 
Set TempNonSessionVar = objCMD.ExecuteQ 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<hcad> 

<title>IMT Network</title> 
</head> 

<body bgcolor="#99CCFF'' viinlc--0OO0OO" link=*'003366'*> 



<fonn meihod='*post" action="add_renewal_psdef.asp*' namc=formI id=forml> 
<tabie width=*'640" border^-O** cellpadding="2''> 
<tr vaIign="top"> 

<td aJign="ieft" width="640" coispan^^a^ximg src-"../graphics/addl222.gir width="26" height="14"X/td> 
</tr> 

<tr vaiign="top''> 

<td align^^left" width="640" colspan="3'*> 
<pxnobr> 

<img src=^ygraphics/bIankl222.gi^ width='*20" height="16*'ximg src=".7graphics^lankI222.gir width-"20'' 
height=''16"ximg src=".ygraphics/blankl222.gir width="20** height="l6"ximgsrc=".7graphicsA)lankl222.gir width="20" 
hei^t-''l6"ximgsrc-".ygraphics/blankI222.gif* widUi=''20'* height=n6"ximg s^c=^ygraphics/blankI222.gi^ width="20" 
height="16"ximg src=".ygraphics/blankl222.gir width-=''20'' hei^t="16''> 

<input type=^image- src="../graphics/submitl 222.gif' width=''54'' height='*16" border='*0" alt="Submit to Database''> 
<img src=^7g^aphics/blankl222.gif * width=''20" hei^t=^''16"ximg src=".7graphics/blank I222.gif' width="20" 
height-" le^xfont face="Verdana, Arial, Helvetica, sans-serir size=M"xa href^"tabautosetup.asp">Retum 
to AutoSetup Parameters Menu</aX/fontx/nobr> </p> 

<tablc width=''265'* border=''0" ce!Ispacing=''3" cellpaddinr''2"> 
<tr> 
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<td bgcolor=''0033^66" height="25" width=''166'' align=''center''> 
<div aIign=="ceme3-''><font face=-" Verdana, Arial, Helvetica, sans-serif coior="#FFFFFF"xbxfontsize=T>SOURCE 
NAME </fontx/bx/font></div> 
</td> 

<td bgcolor-"#99CCFF'' height-''20'* width="360" angn-"[er> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF'*xbxfont size^T 
coloi="#000000*'> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, •'P_S0URCE_NAME\6, "SELECT SOURCE", 

objRSTxIose 

%> 

</fontx/bx/fontx/div> 

</td> 

<Jxr> 
<tr> 

<td bgcolor=''003366'' height="25*' width^Ml" align="center"> 
<div aiign=''center"xfont face="Verdana, Arial, Helvetica, sans-serif color-*'#FFFFFF"xbxfont 
5126=" 1 •'>SOURCE<br> 

INDICATOR </tbntx/bx/font> 
</div> 

</td> 

<td bgcoior=*'#99CCFF" height="20" width="360" align-"leff > 
<div align="left-xfont face=" Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF''xbxfont size^T 

color="#000000"> . 

<input type^-TEXT" NAME^'P.SRC.INDICATOR* id=0 maxiength=^"30" size-"6"> 

</fontx/bx/font> 

</div> 
</td> 

</ir> 

<tr> 

<td bgcolor=*'003366" height="25" width="4i'* align='*center"> 
<div aligns" center^xfont face=" Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF''xbxfont size-" r>PRIOR 
SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

</td> 

<td bgcolor="#99CCFF" height^"20" width="360" align-"left" > 
<div align=="ieft"xfont face==" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="r 
color=="#000000"> 

<input type="TEXT" NAME-T_PRIOR_SRC_INDICATOR' id-0 maxlength="250" 

size="lOO"> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4r align="center"> 

<div aiign="cemer^xfom face="Verdana, Arial, Helvetica, sans-serif coioT-"#FFFFFF"xbxfont size="l"> VALID 
FROM </fontx/bx/font> 

</div> 

</td> 

<td bgcoIor="#99CCFF" height="20" width="360" align="left"> 
<div align="left" xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=*r 
color="#000000"> 

<input type-"TEXT" NAME='P_VALID_FROM' id-0 maxlcngth^"30" size='"l5"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="00336«" height="25" width="41" align="center"> 
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<div align=*'c€nter"xfont face=" Verdana, Arial, Helvetica, sans-serif coIor-*'#FFFFFF''xbxfont size^" r> VALID TO 
</fontx/b></font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height-^'lO" width=''360" align="lefl''> 
<div align^'left^xfont facc^^Verdana, Ariai, Helvetica, sans-serif coior=''#FFFFFF"xbxfont size^" I " 
colop=''#000000*'> 

<inputtype="TEXT" NAME='P_VALID_TO' id=0 niaxlength="30'' size='*l5"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

</lable> 
<p> </p> 

</td> 
</tr> 
</tab]e> 

<input type^" HIDDEN" value^^true" name=''IsLoaded'*> 
</fonn> 
</body> 
</html>. 
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addcamp.asp 

<%@ Language==VBScript ro> 
<!- # include file=="../suppoa^global_constants.asp*' -> 
<!-#indude fiie=".ysupport'dbConnection.asp'* -> 
<!-#inciude flle==^ysuppoa/adoUtils.asp'' -> 
<!- #indude file=''„/support-^srcTab.asp'* -> 

<% 

*on error resume next 

dim p_camp(4). p_camp_t>pe(4), p_cainp_status(4),p_camp_date_fr(4) 

dim p_camp_date_to(4), p_agt_code(4),p_agt_descr(4) 

dim p_e_set_name(4), p_r_set_name(4), p_newstand_sale(4) 

dim p_budgetedjgross_pct(4), p_budgeted_vol(4) 

ADDED = FALSE 

errors = false 

• Response. Write "THis should work" 
for i 0 to 4 

p_camp(i) '= REQUEST("p_camp" & cstr(i) ) 
p_camp_type(i) = REQUE$Trp_camp_type" & cstr(i) ) 
p_camp_status(i) = REQUESTCp_camp_status'' & cstr{i) ) 
p camp_date_fr(i) = REQUESTCp_camp_date_fr- & cstr(i) ) 
p"camp_dateJo(i) = REQUESTC'p_camp_date_to" & cstr(i) ) 
pIagt_code(i) = REQUESXrp.agt^code" & cstr{i) ) 
p_agtldescr(i) = REQUEST("p_agt_descr- & cstr{i) ) 
p_e set_namc(i) = REQUEST(''p_c_set_namc" & cstr(i) ) 
p_,r3et_name(i) = REQUESTCp_r_set_name'* & cstr(i) ) 
'p" ncwstand salc(i) = REQUEST("p_newstand_salc" & cstr(i) ) 
p_budgetedJgross_pct(i) - REQUEST(''p_budgeted_gross_pct'' & cstr(i) ) 
p_budgeted_vol(i) = REQUESTrp_budgcted_vor & cstr(i) ) 

•Response. Write p_camp(i) & •'<br>'' & p_camp_status(i) 
' Response. Write p_source(i) & p_srcjnd(i) 

if p_camp(i) > * " then 
added =true 

• Response. Write p_camp(i) & •*<br>" & p_camp_status(i) 
objCMD.ActiveConnection ^ strSQLOLEDB 
objCMD.CommandText = "sp_Add_Campaign'' 
objCMD.CommandType - adCmdS toted Proc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l).Vaiue ^ p_camp(i) 
objCMD.Parameters(2). Value ValidatePickList (p_camp_type(i)) 
objCMD.Parameters(3).VaIue - ValidatePickList (p_camp_status(i)) 
objCMD.Parameters(4). Value ^ validateDate (p_camp_date_fr(i) ) 
objCMD.Paramcters(5). Value = null 
objCMD,Parametcrs(6). Value = null 
objCMD.Paramcters(7). Value « null 

objCMD.Parameters{8). Value = VaiidatePickList (p_c_set_name(i)) 

objCMD.Parameters(9), Value = ValidatePickList (p_r_sct_name(i) ) 
objCMD.Parameters(10).Value = nuirVaiidatcNumber(p_newstand_sale(i)) 
objCMD.ParametersO 1), Value = ValidatcNumber(p_budgctcdjgross_pct(i)) 
objCMD.Parameters(12). Value = VaIidateNumber(p_budgcted_vol(i)) 

objCMaParameters( 13). Value - SessionCSOURCE.NAME") 
objCMD.Parameters(14).Valuc SessionCSRC.INDICATOR") 
objCMD.Parameters(15).Value = ScssionCPRODUCT^.ID'^) 
objCMD.Parameters(16). Value = Session(''SRC_CAT_NAME'') 
objCMD.Parameters(17). Value = Session(''GRP_NAME'') 
0bjCMD.Parameters{18).VaIue = Session("TlTLE_NAME'') 
Set TempNonSessionVar = objCMD.ExecuteO 

' If objCMD.Errors.Count > 0 Then 

Response. Write " DAMN YOU KEVIN <BR>* & objCMD.Errors.Count 

' Response. Write " errors * & objCMD.Errors.Count & -<BR>" 

* crrStr = errStr & "Campaign <b> " & p_camp(i) & " not added <br>'' 

' errors =true 

' end if 
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end if 
next 

if added = true then 'and errors - false then 
Response.Redirect("admin5a.asp") 
END IF 
%> 

<html> 
<head> 

<tit!e>addCamp .asp</title> 
</head> 

<body bgcolor-"#99CCFF'' vlink-^OOOOOO" iin!c=''003366''> 

<fonn method="posr action=''addCamp.asp'* name=fonnl id=forml> 
<table width-*'640'' border="0'' cellpadding-"2"> 

<% prevSelections (4) %> 
<% if errors - true then%> 
<tr valtgn=''top"> 
<td> 

The following Errors Occured: <br> 
<% Response, Write crrStr %> 
<br> 

<a href^''addCamp-asp*'> Add Campaign Names</a><br> 

<a href^''admin5a.asp-> Return to Main Campaign Screcn</axbr> 



<%eise%> 

<tr valign^*'top''> 

<td aiign=''ieft'' width=''640*' coIspan='*3"ximgsrc=r7graphics/addl222.gir width="26'' hei^t= 14 x/td> 
</tr> 

<tr valign="top*'> 

<td align="left" width=-640" coIspan="3"> 
<pxnobr> 

<img src=".7graphicsA)lankl222.gir width=*'20" height^" 1 e^ximg src="../^aphics^lankl222.gir width=''20" 
height^-ie^ximg src-\./graphics/blankl222.gir width=''20'' height="l6''ximg src=\ygraphics^lankl222.gir width-'*20" 
height-* I6''ximgsrc=\7graphics/blankl222.gir width-''20'' hei^t=-l6''ximgsrc=r7graphicsA)lankl222.gir width=''20'' 
height-* 16''xinig src-\7graphics/blankl222.gir width=*'20'' height=''16"> 

<input type--image" src=\./graphics/submitl222.gir width='*54" height-^ie* border-'-O'* alt-"Submit to Database" id=imagel 
name=imagcl> 

<inig src="../graphics/blank!222.gir width=-20'' height-" 16"ximg src=".igraphics^lankl222.gir width="20- 
height='' le^xfont face=" Verdana, Arial. Helvetica, sans-serir size-M^xa href="admin5a,asp''>Retum 
to Campaign</ax/fontx/nobr> </p> 
<lable bordcr=*'0*' ccllspacingr-S" ccllpaddingr''2-> 
<tr> 

<td bgcolor-''003366'' height=''25'' align="center*'> 

<div align^-center-xfont face-" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF''xbxfont siz^T> 

CAMPAIGN NAME 

</fontx/bx/fontx/divx/td> 

<td bgcolot="003366*' hetght=''25" align=**center*'> 
<div align-''center"> 

<font face-^Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size-*'r> 

CAMPAIGN START DATE 
</fontx/bx/fontx/divx/td> 

<td bgcolor="003366'' hei^t='*25* align=-ccnter*'> 
<div align="center''> 

<font face^-Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size=T> 

CAMPAIGN TYPE 
</fontx/bx/fontx/divx/td> 
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<td bgcolor="003366" height="25" align="center''> 
<div aiign="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF''> 
<bxfont size^" i "> 
CAMPAIGN STATUS 
</fontx/bx/fontx/divX/td> 



<% * <td bgcolor=*'003366*' height=''25" a]ign^"center**> 
' <div align=*'center"> 

<font facc="Verdana, Arial, Helvetica, sans-scrir color=*'#FFFFFF"> 
<bxfontsize=='*r> 

DATE TO 
</fontx/bx/fontx/divx/td> 

<td bgcolop="003366'' height=''25" width^M I " align=''center''> 
<div align=''center"> 

<font face='* Verdana, Arial, Helvetica, s^ans-serif color=''#FFFFFF''> 
<bxfontsize=T> 
AGENT CODE 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003366" height^^aS" width^M 1 " aiign=''center"> 
<div aiign=="ccnter"> 

<font face="Verdana, Arial, Helvetica, sans-serif coIor=''#FFFFFF''> 
' <bxfontsize="I"> 
AGENT DESCR 
</fonlx/bx/fontx/divX/td> %> 
<td bgcolor=''003366" height=*'25" align=''center"> 
<div align=''center"> 

<font facc==" Verdana. Aria!, Helvetica, sans-serif color="#FFFFFF*'> 
<bxfont sizc=T> 
EXPENSE SET 
</fontx/bx/fontx/divX/td> 

<td bgcolor=-003366'' height=**25" align=" center" > 
<div align="cemer'*> 

<font face=" Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF**> 
<bxfontsize="r> 
REVENUE SET 

</fontx/bx/fontx/divx/td> 
<%' <td bgcolor="003366'' height='*25'' align=''centcr*> 
' <div align=''center*'> 

* <font facc="V€rdana. Arial, Helvetica, sans-serif color=''#FFFFFF''> 

• <bxfonlsi2e="I''> 

NEWSSTAND SALE 
</fontx/bx/fontx/divx;/td> 
%> 

<td bgcoior=*003366" height-"25" align=''c€nter-> 
<div aiign=''center''> 

<font face=-Verdana, Arial, Helvetica, sans-serif co1of='*#FFFFFF''> 
<bxfontsize^T> 

BUDGETED GROSS % 
</fontx/bx/fontx/divX/td> 

<td bgcolor-"003366'' height-''25'* align=''center''> 

<div align="center''> 

<font face=''Verdana. Arial, Helvetica, sans-serif color="#FFFFFF''> 
<bxfont 5126=" r> 

BUGETED VOLUME 
</fontx/bx/fontx/divx7td> 
</tr> 



<% for i = 0 to 4 %> 
<tr> 

<td height="15"a!ign=*'Ieft''> 

<div altgn="left"xfont face='*Verdana, Arial, Helvetica, sans-serif color«''#FFFFFF''xbxfont size="r 
color=''#000000"> 
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<input type="text" name='p_camp<%Response.write i %>' maxlength="30" size-''30"'> 
</fontx/bx/fontx/div> 
</td> 

<td height=*'15"align=''ler> 
<div align="lefl''> 

<input type-"texr name-*'p__camp_date_fT<% Response. Write i %>" size=''l2" maxlength- 
</div> 
</td> 

<td height=''15''align-''left''> 

<div align^-Ieft^xfont face=" Verdana, Aria], Helvetica, sans-serif color=-#FFFFFF"> 
<bxfontsize=M" color=*'#000000*'> 



<% strSQL - -^select CAMP_TYPE_NAME from PROD_CAMP_TYPE where " _ 

& " PRODUCTJD='' & SessionCPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_type'' & i ,4, "SELECT TYPE^, -I 
objRST.close 



</fontx/bx/fontx/div> 
</td> 

<td height="l5'*aUgn=''ler> ^ - 

<div align^-left" xfont face-" Verdana, Arial, Helvetica, sans-serif coIor-''#FFFFFF''xbxfont size- I 

color=''#000000*'> 

<% StrSQL = "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where " „ 

& " PRODUCT & SessionCPRODUCTJD") 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, ''p_camp_status*' & i,4, "SELECT STATUS", -1 
objRST.close 

%> 

</fontx/bx/fontx/div> 
</td> 

<td height="15"align-"ier> . _ 

<div aiign-^lerxfont face-" Verdana, Aria!, Helvetica, sans-serif coior="#FFFFFF"xbxfont stze- I 

color="#000000"> 

<% StrSQL = "select e_set_name from EXPENSE_SETS where " _ 

& " PRODUCTJD=" & Session("PRODUCTJD") 
objRb 1 .open StrSQL, strSQLOLEDB, adOpenSutic, adLockOptimistic 
ShowQueryListBox objRST, "P_E_SET_NAME" & i,4, "SELECT EXPENSE SET,-! 
objRST.close %> 

</fontx/bx/fontx/div> 

</td> 

<td height-" 1 5" align="ler> . _ ,« 

<div align="lcff xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size- I 
color="#000000"> 

<% StrSQL = "select r set name from REVENUE_SETS where " _ 

& " PR0DUCT_1I>" & Session("PRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "p_r_SET_NAME" & i, 4, "SELECT REVENUE SET", -1 
objRST.close %> 

</fontx/bx/fontx/div> 
</td> 

<%' <td height-" 15" align-"left"> 
'<div aiign-"left"> 

• <input type="texf name-"p_newstand_sale<% Response. Write i " size-" 12" maxlength-" 12"> 
'</div> 
'</td> 

%> 

<td height="l5"align-"left"> . 
<dtv align==neft"xfont face^^Verdana, Ariai, Helvetica, sans-serif coloi="#FFFFFF"xbxfont size- 1 
color-"#000000"> 
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<input type^^text" name- p_budgeted_gross_pct<yoResponse.write i %>' maxlength="30" size-''8"> 
</font></bx/fontx/div> 
</td> 

<td heighr^^IS" aiign="left*'> 
<div align="Ieft"xfonl face=" Verdana, Arial, Helvetica, sans-serir color=''#FFFFFF"xbxfont size-"!" 
color=''#000000''> 

<input type^^text" name='p_budgeted_vol<%Response,write i %>* maxlength=*'30'* size-*'8"> 
</fontx/bx/fontx/div> 
</td> 

</tr> 

<%next%> 

</table> 
<p> </p> 
<%end if%> 
</td> 
</tr> 
</table> 
</fonn> 
</body> 
</html> 
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addcampstatasp 

<%@ Language=VBScript %> 

<t- # include fiie=\./support/global_constants.asp" --> 

<!-#include fiie=\./support/dbConnection.asp" -> 

<1- # include file=".7support/adoUtils,asp" -> 

<!- # include file=''.7support/srcTab,asp" -> 

<!-#include file=''../support/setupTab,asp'' -> 

<% 

dim l_col_names(2) 
I_file = "addCampStatasp- 
l_coLnames(0) - "CAMPAIGN STATUS" 
I_col_names(l) - "DESCRIPTION" 
I_ColumnCount = 2 

i_sp_add = •*sp_Add_Prod_CAMP_STATus" 
1 JTitle " Campaign Status " 
l_setupTabLink = "setupCampStat.asp" 
1 showPrevSelection= true 



addAccept l_Co]umnCount, i_setupTabLink, l_sp_add, SessionCPRODUCTJD") 
addHeading IJilc, l_file 

addMain I_Title,l_sctupTabLink,l_showPrevSelection,L_Co]_names , l_ColumnCount 
addBottom %> 
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addcamptvpe.asp 

<%@ Language=VBScnpt %> 

<!-- ^include file=''.7support/giobal_constants.asp" --> 

<\- #include flle=^7suppo^t/dK::onnection.asp" -> 

<!- ^include flie=^7suppo^t/a^ioUtils.asp*' -> 

<!- * include ftIe=''.7suppoil/srcTab.asp" -> 

<!- # include file-*' Jsupport/setupTab.asp" -> 

<% 

dim l_col_naines(2) 

I file = "addCampType.asp* 

rcol_names(0) = "CAMPAIGN TYPE" 

l_coLnames(l) = "DESCRIPTION- 

!_ColumnCount=2 

l_sp_add = *'sp_Add_Prod_CAMP_Type'' 
l_Title = " Campaign Type " 
l_setupTabLink = "setupCampType.asp" 
I showPrevSeiectton= true 



addAccept l_CoIumnCount, I_setupTabLink, l_sp_add. Session(" PRODUCT JD") 
addHeading !_fiie, l_file 

addMain l_Title,LsetupTabLink,1_showPrevSeIection,L_,Coi_names , l_ColumnCount 
addBottom %> 
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addesetasp 



<%@ Language-VBScript %> 
<!- #inciude fiie="../suppOTt/gIobaI_constants.asp'* -> 
<!- # include file=".7support/dbConnectton.asp" -> 
<!- # include file=",isupport/adoUtils.asp'* -> 
<!- # include file^^.ysupport/srcTab.asp" -> 
<!-# include ri!e="„/support/JavaSciipts.asp" -> 
<l- #include fiie="„/support/PickListObj.asp" -> 
<% 



If RequestFormClsLoaded") o then 

product Jd - SessionfPRODUCTJD") 
e_sel_nanie = Request form('*e_set_name") 
prmt_cost = Requestformfprint^cosf*) 
print_cpm_cpu = Request-form("print_cpm_cpu") 
print_basis - Request fonn(''print_bas is") 
nierge_purge - Request form("merge_purge") 
merge_cpm_cpu = Requestform(*'merge_cpm_cpu") 
• merge__basts = Requestfonn(*'merge_basis*') 
ltr_cost = Requestform("itr_cost'') 
itr_cpm_cpu = Requestform(''ltr_cpm_cpu'') 
ltr_basis = RequestformCltr^basis-) 
postage_out_cost ~ rcqucstform(''postage_out_cost'') 
postage_out_cpm_cpu Request.form("postage_out_cpm__cpu'*) 
postage_out_basts = Rcquest.formC'postage_out__basis'*) 
postagejn_cost = Request. fonn('*postage_in_cost") 
postage_in_cpm_cpu = Request.form(**postageJn_cpm_cpu*') 
postage Jn_basis = RequestformCpostageJn_basis'') 
premiuni_cost = Requestfonn("premium_cost'') 
premium_cpm_cpu = Requestfortn(**premium_cpm_cpu'') 
premium_basis = Requcst.form(*'prcmium_basis") 
badpay_cost = Requestform(''badpay_cost-) 
badpay_cpm_cpu = Request. form("badpay_cpm_cpu'') 
badpay_basis = Requestform(*'badpay_basis'') 
bining_cost = Request. form("billing_cosr) 
billing_cpm_cpu = RequestfonnCbining__cpm_cpu") 
billing_basis ^ Rcquestformf billing^basis") 
subs_svc_costs = Requcstform(''subs_svc_costs'') 
subs_svc_cpm_cpu = Request formC'subs_svc_cpm__cpu*') 
subs_svc_basis = Requestformf subs_svc_basis'') 
cxp_other_costs = Request. formC'exp_other_costs'') 
exp_other_cpm_cpu - Requestform("exp_other_^cpm_cpu") 
exp_other_basis = Requestfonn("cxp_other_basis'') 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = ''sp_add_prod__c_set*' 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

if not isnumcric(product_id) then 

response.redircct("setupesetasp") 

else 

objCMD.ParametersCgproductJd"). Value = productjd 
end if 

objCMD.Parameters(*'@e_set_name''). Value = c_set_name 
if not isnumeric{print_cost) then 

objCMD.ParametersC*@print_cosr). Value = null 

else 

objCMD.Parametcrsr@print_cosr). Value print_cost 

end if 

objCMD-Parameters('*@print_cpm_cpu'').Vaiue - print_cpm_cpu 
objCMD.ParametersC@print_basis''). Value = print_basis 
if not isnumeric(merge__purge) then 

objCMD.Parameters(''@merge_purge''). Value = null 

else 

objCMD.Parameters(''@merge_purge'').VaIue = merge_purge 

end if 
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objCMD.ParametersC@rnerge_cpm_cpu-), Value = merge_cpm_cpu 
objCMD.ParametersCQmerge^basis"), Value = merge_basis 
if not (ltr_cost > " ") then 

objCMD-ParametersC@ltr_cosf).Value = null 

else 

objCMD-ParametersC'@ltr_cosr).Value = ltr_cost 

end if 

objCMD.Parametersr@ftr_cpm_cpu").Value = ltr_cpm_cpu 
objCMD,Parametersr@ltr_basis").VaIue = Itr_basis 

if not (postage_^out_cost > " ") then 

objCMD-ParametersC'@postage_out_cost'').va]ue = null 

else 

objCMDParameters(''@postage_out_,cost'*). Value = postage_out_cost 

end if 

objCMD.Parametersr@postage_out_cpm_cpu"). Value ^ postage_out_cpm_cpu 
objCMD.ParametersO'@postage_out_basis''). Value = postage_out_basis 
if not (postage_in_cost > " then 

objCMD,ParametersC@postageJn_cost") = null 

else 

objCMD-Parameters(''@postageJn__cost").Value postageJn_cosl 

end if 

objCMD.ParameteTsr@postageJn_cpm_cpu"). Value = post^eJn_cpm_cpu 
objCMD-Parametersr@postageJn_basis'*). Value = postageJn_basis 
if not (premium_cosi > "*•) then 

objCMD,Paran^etersC@premium_cost*) = null 

else 

objCMD Parameters(*'@premium_cost''). Value = premium_cost 

end if 

objCMD.Parametersr@premium_cpm_cpu"). Value = premium_cpm_cpu 
objCMD.Parameters(^@pfemium_basis-). Value = premium_basis 
if not (badpay_cost > "*) then 

objCMD.Paramelers("@badpay_cost").value = null 

else 

objCMD.Parameters("(@badpay_cost"). Value = badpay_cost 

end if 

objCMD.Paranieters<"@badpay_cpm_cpu"). Value = badpay_cpm_cpu 
objCMD.Parameters<"@badpay_basis''). Value = badpay_basis 
if not (billing_cost > ' ") then 

objCMD.Parameters("@billing_cosl*').VaIue = null 

else 

objCMD.Parametersf @billing_cost'').Vaiue = bilHng__cost 

end if 

objCMD.Parameters<''@bilIing_cpm_cpu''). Value = biiling_cpni_cpu 
objCMD.Parameters<^@bining_basis"). Value = billing_basis 
if not (subs_svc_costs > " ") then 

objCMD.Parametersr@subs_svc_costs''). value = null 

else 

objCMD.Parametcrsr@subs_svc_costs''). Value = subs_svc_costs 

end if 

objCMD.ParametcrsC@subs_svc_cpm_cpu"). Value = subs_svc_cpm_cpu 
objCMD.Parameteis("'@subs_svc_basis''). Value = subs_svc_basis 
if not (exp_other_costs > " ") then 

"objCMD.PArameters('*@exp__other_costs'') = null 

else 

objCMD.ParametersC@exp_othcr_costs''). Value = exp_other_costs 

end if 

objCMD.ParameteTsr@exp_other_cpm_cpu**).Value = exp_other_q)m_cpu 
objCMD.Parametersr@expIother_basis"). Value = exp_other_basis 

Set TempNonSessionVar = objCMD.ExecuteO 

Responsc.Redirect "setupeseLasp" 

end if 

%> 

<html> 
<head> 

<titie>AddESet.asp</title> 
</head> 
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<script language=*'JavaScript*'> 
<!" 

function MM_swapimgRestoreO { //v2.0 
if (document.MM_swapImgData != null) 
for (var i=0; i<{documentMM_swapimgData.length-l); i+=2) 
docunient.MM_swa43fnigData[i].src = document,MM_swapImgData[i+l]; 

} 

function MMjireloadlmagesQ { //v2.0 
if (documentimages) { 

var imgFiles = MM_preIoadImages.arguments; 

if (document.prcIoadAnay==nuU) documentpreloadAiray = new ArrayQ; 
var i = documentpreloadArray.Iength; 

with (document) for (var j=0; j<imgFiIes.length; j++) if (imgFiles|j].charAt(0)!-"#"){ 
preloadArrayli] ~ new Image; 
preloadArray[i-H-].src = imgFiles|j]; 

}} 

} 

function MM_swapImageO { //v2.0 

var i jK),objStr,obj,swapArray=Tiew ArTay,oidArray==document.MM_swapImgData; 
for (i=0; i < (MM_swapImage.argumentsJength-2); { 
objStr^ MM_swapImagc.arguments[(navigator.appName ==^*Netscape*)?i:i+l]; 
if ((objStr.indexO^'documentlayers(')^ && documenLlayers^^uU) |1 

(objStr.indexOfCdocument.alin =0 && document.all =null)) 
objStr = *documenf+objStr.substring(objStrJastIndexOf(;\*).objStr.length); 
obj = evaI(objStr); 
if(obj!=nun){ 
swapArray[j-H-] = obj; 

swapArrayO-H-j = (oldArray==null || oldArray[j-l]!^bj)?obj.src:oidArray[j]; 
obj.src - MM_swapImage.arguments[i+2]; 
}} 

document MM_swapImgData = swap Array; //used for restore 

} 

//-> 

</script> 

<body bgcolor=''#99CCFF*' vlink-^OOOOOO" link=''003366*'> 



<form method^^post" action^'*addESetasp*' id=fomTl name=formI> 
<input type^^HIDDEN" name^^^lsLoaded" value^''TRUE"> 

<TABLE BORDER=0 > 

<rR> 

<td> </td> 
<tr> 

<td colspan=5> <font facc^" Verdana, Arial, Helvetica, sans-serir si2e=M''> 
<a hrcf=''setupEsct,asp''> </ax/font> 

<tablc width^^MOO'/o" border=''0*' cellspacing^^O" ccl!padding=''0-> 
<tr> 

<td width^-lSro" valign=''top''ximg src=r7graphics/addl222.gir width-''26'' height-^" I4"x/td> 
<td width=''82%" colspan="3"> 
<div align=*'right''> </div> 
<div align=''right*'x/div> 
</td> 
</tr> 
<tr> 

<td width='' 1 8%" valign=*'top''> </td> 
<td width=''82%*' coIspan="3''> 

<div aiign=''right-> </div> 

<div align-'*righf > 
<p> 

<input type=''image- name=SUBM!T value=''SUBMir src="../graphics/submitl222.gir width-"54" hei^t-" 16' 

border^^O" 

aIt=''Submit to Database" id^imagei> 
</p> 
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<pxfont face=" Verdana, Arial, Helvetica, sans-serif* size=M"xa href^"setupEset.asp">Retum 
to Expense Set Scajp Table </ax/fontx/p> 
</div> 
</td> 
</tr> 
</tabIe> 
<px/p> 
</td> 
</tr> 
<tr> 

<td height="IO" width^'UO" align^''center"> </td> 

<TD aiign='*left'* heighT=^'10''> </td> 

<TDheight=*'lO"x/td> 

<td align="RIGHT'' heidir=''10"> </td> 
<Jtr> 
<tr> 

<td> 

Expense Set 

</td> 
<td> 

<input type^-TEXT" NAME=''e_set_name'* vaiue-''*'> 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input type=*'TEXT" NAME='*print cost" value=**"> 

</td> 
<td> 

<% showLOVListBox ''CPM,CPU","print__cpm_cpu'',2/", %> 

</td> 
<td> 

<input type='*HIDDEN'' NAME^^print^basis" vaIue=''MaiI Qty"> 
Mail Qty 

</td> 

</tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type^^T^XT" NAME="mcrgc_purge'* valuc='"'> 

</td> 
<td> 

<% ShowLOVListBox "CPM^CPU^rmerge.cpm.cpu^^S,"", %> 

</td> 
<td> 

<% showLOVListBox "Mail Qty .Merge Purge Qty%''merge_basis\2/", %> 

</td> 

<tr> 

<td> 

Lettershop Cost 

</td> 
<td> 

<input type^-TEXT** NAME="!tr_cost" value=*'*'> 

</td> 

<td> f 

<% ShowLOVListBox *'CPM,CPU"/ltr_cpm_cpu"^,"\ %> 

</td> 
<td> 

<input type="HIDDEN" NAME=''Itr_basis'' vaIue=''MaiI Qty**> 
Mail Qty 

<Jtd> 

<tr> 

<td> 
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<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



</td> 
<td> 

</td> 
<td> 

</td> 
<td> 



<rtd> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<ld> 

</td> 

<td> 

</td> 
<id> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</t<J> 
<td> 

</td> 

<td> 

</td> 
<td> 

</ld> 
<td> 

</td> 
<td> 



Postage Out Cost 

<tnput type-^TEXT" NAME=**postage_out„cosr value=""> 

<% showLOVListBox ''CPM,CPU","postage_out_cpm_cpu",2/'', %> 



<input type^^HIDDEN" NAME=''postage_out_basis'' value-"Mail Qty''> 
Mail Qty 



Postage In Cost 

<input type^^TEXT" NAME="postageJn_cosr value=**"> 

<% ShowLOVListBox "CPM,CPU","postageJn_cpm_cpu'*»2,"", %> 



<input type=*'HIDDEN'' NAME="postageJn_basis'* vaIue-"Gross Subs"> 
Gross Subs 



Premium Cost 

<input typc^-TEXT' NAME^^premium^^cosf va!ue='"'> 

<% ShowLOVListBox ''CPM,CPU^*•premium_cpm_cpu^2,*'^ %> 

<% showLOVListBox "Gross Subs,Net Subs",*'premium_basis\2/", 

Bad Pay Cost , 

<input type-^TEXr* NAME="badpay_cost'* vaIuc-"-> 

<% ShowLOVListBox ''CPM,CPU'',-badpay^cpm_cpu",2,''\ %> 



<input typ€=="HIDDEN" NAME=*'badpay_basis" vaiue='*Gross-Net Subs*'> 
Gross-Net Subs 



Billing Cost 

<inputtype="TEXT- NAME="bining_cost" value=''"> 

<% ShowLOVListBox XPM,CPU\**bil!ing_cpm_cpu",2,''", %> 

<input type="HIDDEN" NAME="biUing_basis" vaIue='*Credit Subs**> 
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Credit Subs 

</td> 

</tr> 
<tr> 

<td> 

Sub Service Cost 

</td> 
<td> 

<input type='TEXT'* NAME="subs_svc_costs'' value=''"> 

</td> 
<td> 

<% showLOVListBox •CPM,CPU",''subs_svc_cpm_cpu"^/\ %> 

</td> 
<td> 

<input type=" HIDDEN" NAME='*subs_svc_basis" va!ue="Net Subs"> 
Net Subs 

</td> 

<tr> 

<td> 

Exp Other Cost 

</td> 
<td> 

<input type="TEXr NAME="exp_other_costs'' value='"'> 

</td> 
<td> 

<% ShowLOVListBox -CPM,CPU","exp_other_cpm_cpu"^,-", %> 

</td> 
<td> 

<% ShowLOVListBox "Mail Qty.Merge Purgc,Gross Subs,Net 

Subs*'/exp_other_bas{s"J>."", %> 
</td> 

</tT> 

</table> 
</td> 
</tr> 
</tabIe> 
</form> 
</body> 
</html> 
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addlistcat.asp 

<%@ Langu^e=VBScript %> 

<!- #inc!ude file=*'.,/support/globai_constants.asp'' -> 

<!- ^include file="../support/dbConnectton.asp'' -> 

<l- ^include file=''.ysupport/adoUtiIs-asp*' -> 

<!- #includc file^^.Vsupport/srcTab.asp" -> 

<!-#incIude ftle^^.ysuppoit/setupTab.asp" -> 

<% 

dim l_coI_names(2) 
l_file^ "addListCat.asp'* 
i_coLnames(0) = "LIST CATEGORY" 
Lcol_names(l) = -DESCRIPTION" 
I_ColumnCount = 2 
l_sp_add = •'sp_Add_Prod_List_Cat'' 
!_TitIe = " List Category " 
l_setupTabLink = "setupListCat.asp" 
1 showPrevSelection= false 



addAccept !_ColujnnCount, l_setupTabLink, l_sp_add, SessionCTRODUCTJD") 
addHeading l_file, l_file 

addMain l_Titie,I_setupTabLink,l_showPrevSelection,L_CoI_names , I_ColumnCount 
addBottom %> 
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addlistname.asp 

<%@ Language==VBScript %> 

<!-#include file="Jsupport/global_constajits.asp" -> 

<!"# include fiIe=^",./support/dbConnection,asp'' — > 

<!- # include file=''.7support/adoUtiIs.asp'' -> 

<1- # include fiIe=*'.7support/srcTab.asp" — > 

<1- # include fiIe=''.7support/setupT^.asp'* -> 

<% 

dim l_col_names(2) 
l_f!le = "addListName.asp" 
I_col nanies(O)- "LIST NAME- 
l_col_names(I) - "DESCRIPTION" 
!_ColumnCount ~ 2 
l_sp_add = ''sp_Add_Prod_List_Name" 
l_Title " List Name " 
!_setupTabLink = "setupLisiName.asp" 
I showPTevSeiection= false 



addAccept l_ColumnCount, I_setupTabLink, i_sp_add, SesstonrPRODUCT JD") 
addHcading l_fiie, l_file 

addMain l_Title,I_setupTabLink,l_showPrevSelection,L_CoI_names , i_CoIumnCount 
addBottom %> 
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addUstsegmentasp 

<%@ Language-VBScript %> 

<!-# include fiie=\7support/gioba3_constants.asp" -> 

<l- # include file=*'.ysupport/dfaConnection.asp*' -> 

<l-#inciude fiIe=''.ysupport/adoUtils.asp" -> 

<l-#inciude fiIe='',ysupport/srcT^.asp'' -> 

<!-#include file-^.ysupport/setupTab.asp" ~> 

<% 

dim l_col_names(2) 
i_file = "addListSegmentasp** 
l_col_names(0) = "LIST SEGMENT" 
Lcol_names(l) = "DESCRIPTION" 
I_ColumnCount - 2 

l_sp_add = "sp_Add_Prod__List_Segment" 
i_Title = '' List Segment" 
l_setupTabLink = "setupListSe^entasp" 
1 showPrevSelection= false 



addAccept !_ColumnCount, l_setupTabLink, Lsp_add. Session("PRODUCTJD") 
addHeading I_file, i_file 

addMain l_TiUe»I_setupTabLink,l_showPrevSelection,L_CoI_namcs , l_ColuninCount 
add Bottom %> 
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addpaneLasp 

<%@ Language=VBScript %> 

<|- # include file='',Vsupport/global_constants.asp'* -> 

<!- # include fiIe=*'../support/dbConnection.asp" -> 

<l-#include flle=^7support/adoUtils.asp'' -> 

<!-# include file=''„/support/srcTab.asp" -> 

<% 

!_debug = 0 

l_size - 6 

dim pj3anel(6), p_panel_t\pe(6), p_panel_sub_type(6), p_tesl_type(6) 
dim p_panel_offer(6), pj)anel_offerj)rice(6),p_panel j5kg(6) 
dim p_panellpremium(6), p_pancl_date_start(6), p_panel_date_end(6) 
dim p_e_sct_name(6), p_r_set_name(6) 
dim p_newstand_sale_marker(6) 

'took out the redims in hopes of better performance, knock on wood 

'redim p_panel(1_size) 
'redim p_j)anci_type(l_si2e) 
*redim pj)anc!_sub_type(i_si2e) 
'redim p_test_type(I_size) 
Vedim p_panel_offer(Lsize) 
'redim pj5anel_pffer_price(l_si2e) 
Vedim p_panel j)kg(l_size) 
*rcdim p_panel_premium(l_si2e) 
'redim p_panel_date_start(l_si2e) 
'redim p_panet_date_end(I_size) 
'redim p_e_set_name(l_si2e) 
'redim p„r_sct_name(l_si2e) 

dim l_camp_t>pc 

dim I_camp_siarus_name 

dim l_agt_code 

dim i_agt_descr 

dim l_camp_date_fr 

dim i_camp_daie_to 

strSQL = "select CAMP_TYPE, CAMP_STATUS_NAME, AGT^CODE, " _ 
& " AGT_DESCR, CAMP_DATE_FR, CAMP_DATE_TO, " _ 
& "E_SET_NAME, R_SET_NAME " _ 
& " from CAMPAIGNS where " _ 
& " grp_name = & SessionCGRP NAME") & _ 
& " and PRODUCTJD-" & SessionCPRODUCTJD") & - " _ 
& - and src_cat_name - "' & SessionCSRC_CAT_NAME**) & _ 
& * and source_name = & SessionCSOURCE_NAME") & _ 
& * and camp_name = & SessionCCAMP_.NAME") & 
•& " and srcjndicator - '^ & SessionCSRC^INDlCATOR'') & _ 
objRST.open strSQL, strSQLOLEDB. adOpcnSutic, adLockOptimistic 
!_camp type = objRST.FieldsC*CAMP_TYPE-) 
I_camplstatus__name = objRST.Fields("CAMP_STATUS_NAME'') 
l_agt_code = objRST.FieldsCAGT_CODE") 
l_agt_descr = objRST.FiddsCAGT^DESCR-) 
|_camp_date fr - objRST.FieldsC^CAMP.DATE.FR") 
l_camp datejo = objRST.FicidsCCAMP_DATE_TO") 
l_c_setjiame - objRST.F!eidsCE_SET^NAME'') 
U_set_name = objRST.FieldsCR^SET^NAME") 

objRST.ciose 

'Response. Write "THis should work but it doesn't because I suck" 
for i 0 to L^izc -1 

p_panel(i) = REQUESTCP.PANEL" & cstr(i) ) 

p _pancl_type(i) = REQUESTCP.PANEL.TYPE" & cstr{i) ) 

P _panel_sub type(i) = REQUESTrP_PANEL_SUB,TYPE- & cstr<i) ) 

p_tcsi_typc(iT= REQUESTCP_TEST_TYPE- & cstr(i) ) 

'p_paneLoffer(i) = REQUESTCP PANEL.OFFER" & cstr(i) ) 

'pj>anel offer _price(i) = REQUESTCP.PANEL.OFFER.PRICE" & cstr(i) ) 

p_paneGkg(i) = REQUEST(''P_PANEL_PKG" & cstr(i) ) 
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•p _panei_premium(i) - REQUESTC'P_PANEL_PREMIUM" & cstr{i) ) 
p _panei_date_start(i) - REQUEST(''P_PANEL_DATE_STARr & cstr(i) ) 
p _panei_date_end(i) = REQUESTCP_PANEL_DATE_END*' & cstr(i) ) 
p_e_set_name(i) = REQUESTCP_E_SET_NAME'* & cstr(i) ) 
p_r_set_name(i) = REQUESTCP_R_SET_NAME*' & cstr(i) ) 

'p_newstand_saie_marker(i) = REQUESTrP_NEWSTAND_SALE_MARKER" & cstr{i) ) 

• Response. Write p_camp(i) & ''<br>'' & p_camp_status(i) 
'Response. Write p_panci(i)& "<br>'' & p_panel_type(i) 
ifpj)aneKi)>*"'then 
' Response. Write p_panei(i) & •'<br>" & p_panel_type(i) & pjest_type(i) 
added -true , 

objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText = ''sp_Add_Paner' 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters-Refresh 

* user supplied values 

objCMD.Parameters(l). Value ^ p_j)anel(i) 
objCMD.Paranieters(2). Value ValidatePickList (p_panel_type(i) ) 
objCMD.Parameters(3). Value ^ ValidatePickList 0)j)anel_sub_type(i) ) 
objCMD.Parameters(4). Value = ValidatePickList (pjest_type(i)) 
objCMD.Parameters(5). Value = ValidatePickList (p_panelj5kg(i)) 
objCMD.Parameters(6). Value = validateDate (p_panel_date_start(i)) 
objCMD.Parameters(7).Value = validateDate ( p_panel_date_end(i)) 
objCMD.Paramcters(8).Value = ValidatePickList (p_e_set_namc(i)) 
objCMD.Parameters(9), Value ^ ValidatePickList (p_r_set_name(i)) 
objCMD,Paramcters(!0). Value ^ null' ValidatePickList (p_newstand_sale_marker(i)) 

* session supplied values 

objCMD.Parameters(l i). Value = SessionCPRODUCTJD") 
objCMD.Parameters(12). Value = SessionfGRP.NAME") 
objCMD.Paranieters(13). Value Session("TITLE_NAM£'') 
objCMD.Parameters( 14). Value = Session("SRC_CAT_NAME'*) 
objCMaParameters(l5).Vaiue ^ SessionCSOURCE^^NAME") 
objCMD.Parameters(l6),Value = SessionCSRC_INDiCATOR'') 
objCMD.Parameters(I7). Value = SessionCCAMP_NAM£") 

' query supplied values 
objCMD.Parameters(I8).VaIue = l_camp_type 
objCMD.Parameters(l9),Vaiue = l_camp_status_name 
objCMD. Paraineters(20). Value = l_agt_code 
objCMD.Parameters(21). Value = I_agt_descr 
objCMD.Parameters(22)- Value = l_camp_date_fr 
objCMD. Parameters(23). Value = l_camp_date_to 

Set TcmpNonSessionVar = objCMD.ExecuteO 

end if 
next 

if added = true then 
ResponscRedirect "ADMIN6A.ASP'* 
end if 

' added April 6, 2000. 

' convert Queries to LOVs to avoid running queries more than once 

dim PanelTypeLOV, PanelSubTypeLOV^ PanelTestTypeLOV 
dim PackageLOV, ExpenseSetLOV, RevenueSetLOV 

PanelTypeLOV = QueryToLOVCselect PANEL_TYPE_NAME from CORP.PANEL.TYPE") 
PanelSubTypeLOV = QucryToLOVrscIect PANEL_SUB_TYPE_NAME from CORP_PANEL_SUB_TYPE'') 
PanelTestTypeLOV = QueryToLOVCselect PANEL_TEST_TYPE_NAME from CORP^PANEL.TEST.TYPE" ) 
PackageLOV QueryToLOVCselect PACKAGE_NAME from PROD_PANEL_PACKAGE \ 

& "WHERE PRoduct id & ScssionCPRODUCTJD") ) 
ExpenseSetLOV = QueryToLOVCselect e_set_name from EXPENSE^SETS where " _ 

& " PRODUCTJD=*' & SessionCPRODUCTJD") ) 
RevenueSetLOV - QueryToLOVfseiect r_set_name from REVENUE_SETS where " _ 

& " PRODUCT JD^" & SessionCPRODUCTJD") ) 
'we need the default revenue and expense sets from the campaign level 
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%> 

<htm!> 
<head> 

<title>AddPane!.asp</titJe> 
</head> 

<body bgcolop=''#99CCFP vlink=-000000'' Itnk="003366"> 
<forTn method- 'posf* action^-addPanel.asp" name=fomil id=forml> 
<table width="640'' bordo-'O'* cellpadding=''2''> 
<% 

if i_debug=I then 

Response.write ''l_e_set_name " & l_e_set_name 
Response.Write '*<BR>" 

Response.write ''l_r__set_name " & l_r_set_name 
Response. Write "<BR>" 

Response. write "PanelTNpeLOV & PanelTypeLOV 
Response. Write *'<BR>" 

Responscwrite -PanelSubTvpeLOV " & PanelSubTypeLOV 
Response. Write ''<BR>" 

Response. write ''PaneITestT>'peLOV " & PanelTestTypeLOV 
Response.Write "<BR>* 

Response.write "PackagcLOV " & PackageLOV 
Response.Write •'<BR>" 

Response.Write "ExpenseSctLOV " & ExpenseSetLOV 
Response. Write '•<BR>" 

Response.write "RevenucSctLOV " & RevenueSetLOV 
Response. Write '•<BR>" 
end if 

%> 
<% 

prevSelections (5) %> 
<%iferrors = true then%> 
<tr valign=''top*'> 
<td> 

The following Errors Occured: <br> 
<% Response.Write errStr %> 
<br> 

<a href=*'addCamp.asp"> Add Campaign Names</axbr> 

<a href=*'admin5a.asp"> Return to Main Campaign Screen</axbr> 



<%clse 

diml_marker vals 

I_iTiarker„vais-*Y,N" 

%> 

<tr valign=''top'*> 

<td align-^^left** width=''640" colspan='*3"ximg src-^Vgraphics/add 1 222.gif * width=*'26" height=''14"x/td> 
</tr> 

<tr valign='*'top''> 

<td align=^''left" width="640" co!span=''3''> 
<pxnobr> 

<img src==rygraphics/biankl222.gir width='*20" height=''16''ximg src=^ygraphics/blankl222,gi^ width="20" 
hcight^-'ie-ximg src=".ygTaphics/bIankl222.gir width="20'' height=''l6''ximg src=^yg^aphics/blankl222.gi^ width=''20- 
height^" 16*'ximg src=".ygraphics/blankl222.gir width^-aO" hcight=''16''ximg src=^ygraphics^Iankl222.gi^ width^''20*' 
height^** le-ximg src=",7graphics/biankl222.gif width="20'' height=M6"> 

<input type^^image" src=r,/graphics/sufamitl222,gif width=-54" height="16" border-"^ alt=''Submit to Database" id-imagel 
name=imagel> 

<img src=\./graphics/blankl222.gir width=''20'* height=''16''ximgsrc=r,/graphics/blankl222.gir width="20'' 
height=''16"xfont face^" Verdana, Arial, Helvetica, sans-serif size='*-4"> 
<a href=''admin6a.asp*'> 
Return to Panel</ax/fontx/nobr> </p> 
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<tab[e border=''0'' ceUspacing=''3'' cenpadding=*'2"> 
<tr> 

<td bgcolor=''003366^ height="25'' altgn="center'*> 

<div align="center**xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF''xbxfont si2e='" I 
PANEL NAME 

</fontx/bx;/fontx/divx/td> 

<td bgcolor=''003366" height=''25" align=''center"> 
<div aiign=''center*'> 

<font face==*Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF*'> 
<bxfontsize="r> 

PANEL START DATE 
</fontx/bx/fontx/divx/td> 

<td bgcolor='*003366*' height="25'' aiign="center*'> 
<div align=''c€nter''> 

<font face^^Verdana, Arial, Helvetica, sans-serif color=*'#FFFFFF''> 
<bxfontsize==''r> 

PANEL TYPE 
</fontx/bx/fontx/divx/td> 

<td bgcolor==*'003366'* hcight=*'25'' align=*'center''> 
<div align-**center"> 

<font face='' Verdana, Arial, Helvetica, sans-serif color^'*#FFFFFF"> 
<bxfont size="l"> 

PANEL SUBTYPE 
</fontx/bx/fontx/divx/td> 

<td bgcoior-''003366'* hei^t-''25" align="center*'> 
<div align=='*center'*> 

<font face^-Verdana, Aria!, Helvetica, sans-serif coIor=''#FFFFFF''> 
<bxfont size=T> 

PANEL TEST TYPE 
</fontx/bx/fontx/divx/td> 

<td bgcolor=-003366'* height=*'25'' align=''center''> 
<div align=''center''> 

<font face=**Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF"> 
<bxfontsize=*'r> 

PACKAGE 
</fontx/bx/fontx/divx/td> 

<td bgcolor=-003366" height-''25" align=*'center"> 
<div align="center"> 

<font face='' Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF*'> 
<bxfont size="r> 

EXPENSE SET 
</fontX/bx/fontx/divx/td> 

<td bgcolor="003366'* height-"25'' align=''center''> 
<div align=*'center''> 

<font face=-Vcrdana, Arial, Helvetica, sans-serif color="#FFFFFF''> 
<bxfontsize=''r> 
REVENUE SET 

</fontX/bx/fontx/divx/td> 

<%' <td bgcolor='*003366" height=''25'' align=''center"> 

*<div aHgn=*'center'*> 

'<font face^''Verdana, Arial. Helvetica, sans-serif color=''#FFFFFF''> 

'<bxfont size==''r> 

* NEWSSTAND MARKER 

• </fontx/bx/fontx/divx/td> 

'</tr> 

%> 



<% for i 0 to l_size - ! %> 
<tr> 
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<td height=''15'' align=''left"> 

<div aiign="left**xfont face-" Verdana, Arial, Helvetica, sans-serif colop=''#FFFFFF"xbxfont size-T 
color=''#000000"> 

<input type="text" name=T_PANEL<%Response, write i %>' maxlength="250" size="30"> 
</fontx/bx/font></div> 
</td> 

<td height=''15"align="ler> 
<divalign="ler> 

<inputtype^next'' name="P_PANEL_DATE_START<% Response. Write i size^-'n" maxlength="12'*> 
</div> 
</td> 

<td height=''15''align="ler> 

<div align-"Ieft**xfont face-" Verdana, Anal, Helvetica, sans-serif color=**#FFFFFF*'> 
<bxfont size="r color=''#000000"> 



<% 'strSQL = "select PANEL_TYPE_NAME from CORP_PANEL_TYPE" 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PanelTypeLOV, "P^PANEL^TYPE" & i ,4, -SELECT TYPE". -1 
*objRST.c!ose 

%> 



</font></bx/fontx/div> 
</td> 

<td hcight="l5"align="left''> 
<div align==''Ieft''xfont face=="Verdana, Arial, Helvetica, sans-serif color^"#FFFFFF''xbxfont size^M" 
colop="#000000"> 

<% ' StrSQL = "select PANEL_SUB TYPE_NAME from CORP_PANEL_SUB_TYPE- 

~ 'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowLOVListBox PanelSubTypeLOV, "P_PANEL_SUB_TYPE" & i.4, "SELECT 

SUBTYPE",-! 

showQueryListBox objRST, "P_PANEL_SUB_TYPE" & i,4, "SELECT SUBTYPE". - 

I 

•objRST.close 

%> 

</fontx/bx/fontx/div> 
</td> 

<td height="15"altgn="left"> 

<div aiign="ieft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size-T 
color-"#000000"> 

<% • StrSQL - "select PANEL TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" 

' " objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowLOVListBox PanelTestTypeLOV. '•P_TEST_TYPE" & i,4, "SELECT TEST 

TYPE", -1 

'objRSTxlose 

%> 

</fontX/bx/fontx/div> 
</td> 

<td height="15"align="ler> 
<div align="lefl"> 

<% 'strSQL = "select PACKAGE_NAME from PROD_PANEL_PACKAGE WHERE PRoductJd =" & 
SessionfPRODUCTJD") 

•objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowLOVListBox PackageLOV, "P„PANEL_PKG" & i,4, "SELECT PACKAGE", -1 
'objRSTxIose 

%> 



</div> 
</td> 

<td height-"l5"align="left"> 
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<div align="Ieft^xfont face=" Verdana, Arial, Helvetica, sans-serif* coIor="#FFFFFF"xbxfont size=''r 
color="#000000"> 

<% 'strSQL - "select e_set_name from EXPENSE_SETS where " _ 

'& " PRODUCT_II>=" & Session("PRODUCTJD") 

* objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showLOVListBox expenseSetLOV, "P^E_SET_NAME" & i,6, "SELECT EXPENSE 

SEP',I_e_Set_name 

'objRST.close %> 

</fonP</bx/fontx/div> 

</td> 



<td height=''15''align-*'ler> 
<div aIign="left''xfont face="Verdana, Arial, Helvetica, sans-serir color=''#FFFFFF''xbxfont size=T 
coloT-*'#000000"> 

<%• StrSQL - "select r_set_name from R£VENUE_SETS where " _ 

& - PRODUCT_ID=- & SessionCPRODUCT JD") 
'objRST-open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowLOVListBox RevenueSetLOV, ''p_r_SET_NAME'' & i,6, "SELECT REVENLfE 

SET". I_r set_name 

•objRSTxIose %> 

</fontx/bx/fontx/div> 
</td> 

<% •<TD align=''Ieft''> 

^ShowLOVListBox l_marker_vals, '•P_NEWSTA>JD_SALE_MARKER'' & i , 6, " — \l_newstand_sale_marker 



</td> 

%> 

</tr> 

<%next%> 

</table> 
<p> </p> 
<%end if%> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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addpan€lpacka£€.asp 

<%@ Language=VBScript %> 

<!- #include fiIe==*'../support/globaI_constants.asp'' -> 

<!- #include file=''../support/dbConnection.asp" -> 

<!- #include file=".7support/adoUtiIs.asp" -> 

<!- ^include fiIe==*'../support/srcTab.asp'* -> 

<!- # include fiIe=**,./support/setupTab,asp'' -> 

<% 

dim i_col_names(2) 
I_fi!e - "addPanelPackage.asp** 
l_col_names(0) - "PANEL PACKAGE" 
l_coLnames(l) = "DESCRIPTION'' 
l_ColumnCount = 2 

l_sp_add = ''sp_Add_Prod_panel_Package*' 
l_TitIe = " Panel Package" 
l__setupTabLink = "setupPanelPackage.asp" 
l_showPrevSelection= false 
l_fiie = "addPanelPackage.asp" 



addAcceptl_CoiumnCounl, I_setupTabLink, I_sp_add, SEssion("PRODUCTJD") 
addHeading l_file, I_file 

addMain l_TiUeJ_setupTabUnk,I_showPrcvSelection,LjCoI_namcs , I_ColumnCount 

addBottom 

%> 
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addpaneisubtypcasp 

<%@ Language- VBScript %> 

<!- #include file="„/support/global_constants.asp'' -> 

<!- #inciude file=''„/support/dbConnection.asp" -> 

<1- #include ftle=''.7support/adoUtils.asp'' -> 

<!- #inctude file-'.Vsupport/srcTab.asp" -> 

<!- #include file-^.ysupport/setupTab.asp" ~> 

<% 

dim l_col_names(2) 

l_file = "addPaneiSubTypcasp" 

i_col names(0) = "PANEL SUB TYPE- 

LcofnamesCI) = "DESCRIPTION'* 

l_ColumnCount = 2 

l_sp_add = •'sp_Add_Corp_Panel_Sub_Type" 
l_TitIe = *• Panel Sub Type " 
l_setupTabLink - "setupPanelSubType.asp** 
I showPrevSelection= false 



addAcccpt I_CoIumnCount, l_setupTabLink, l__sp_add, -1 
addHeading l_file, I_fi!e 

addMain i_TitIeJ_sctupTabLink,l_showPrevSelection,L_Coi_names , i_ColumnCount 
addBottom %> 
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addpaneitesttvpc^asp 

<%@ Language^ VBScript %> 

<l— #include fiIe=''../support/globai_constants.asp" -> 

<!- #include fiIe=".ysupport/dbConnection.asp" -> 

<1- #include file=".ysupport/adoUtils.asp" -> 

<!- #inciude file^^.ysupport/srcTab-asp" -> 

<!— ^include fiie=='',ysupport/setupTab.asp*' — > 

<% 

dim l_coi_namcs(2) 

l_file = "addPanclTestType.asp" 

1 col_names(0) = "PANEL TEST TYPE" 

rcoI_names(l) - "DESCRIPTION" 

l_ColumnCount = 2 

l_sp_add = *sp_Add_Corp_PaneI_Test_Type" 
I_Titlc ^ - Pane! TesFType " 
!_setupTabLinlc - "setupPanclTestType.asp** 
\ showPrevSelection^ false 



addAccept l_ColumnCount, I_setupTabLink, [_sp_add, -1 
addHeading l_file, i_fiie 

addMain I_TitlcJ_setupTabLink,l_showPrevSelection,L_Col_names , l_CoIumnCount 
addBottom %> 
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addpaneltvpe.asp 



<%@ Unguage^VBScript %> 

<l- # include fiIe=".ysupport/globai_constants.asp'' -> 

<!- ^include file=",7support/dbConnection.asp" -> 

<!- Mindudc fiie='',ysupport/adoUtils.asp'' -> 

<!-i¥include file='',7support/srcTab.asp'' -> 

<!-#include fiie="Jsupport/setupTab.asp*' -> 

<% 

dim !_col_names(2) 
l_file - "addPanelTypcasp** 
l_col_names(0) = "PANEL TYPE" 
l_coLnamcs(l) = "DESCRIPTION" 
t_ColumnCount = 2 

i_sp_add = '•sp_Add_Corp_Panel_Type*' 
I_TitIe = '' Panel Type" 
l^setupTabLink = "setupPanelType.asp" 
1 showPrevSelection- false 



addAccept l^ColumnCount, !_setupTabLink, !_sp_add, -I 
addHeading l_rile, l_file 

addMain i_TitleJ_setupTabLinkJ_showPrevSelection,L_Col_names , l_ColumnCount 
addBottom %> 
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addpriorsrcdesc.asp 

<%@ Language= VBScript %> 

<f- #include file=''../support/globaI_constants.asp" -> 

<l— #include file=''../support/dbConnection.asp" -> 

<!- ^include fiIe="../support/adoUtils.asp" -> 

<!- # include ftIe=''.ysupport/srcTab.asp" -> 

<!- # include file=''../suppoit/sctupTab.asp" -> 

<!-#include file=''../support/libCommoaasp" -> 

<% 

dim l_col_names(8) 

l_file - "addPriorSrcDescasp" 

l_col_naines(0) = "PRIOR SOURCE IDENTIFIER" 

l_col names(l) = "RENEWALS PRIOR SOURCE DESC" 

1 cornames(2) = "BILLING CURRENT SOURCE DESC" 

rcoLnamcs(3) - "MODEL SOURCE CATEGORY" 

l_coI names(4)- "MODEL SOURCE" 

I cornames(5)=^ "AGENT SOURCE" 

rcol_names(6) = "VALID FROM DATE" 

l_coLnames(7) " VAUD TO DATE" 

l_ColumnCount = 8 

I_sp_add - "sp_Add_prior_Source_desc" 
IJTitle - "Prior Source Description" 
l^setupTabLink - "sctupPriorSrcDesc.asp" 
l_showPrcvSeIection- true 

addAcccpt l^ColumnCount, i_setupTabLink, I_sp_add, SessionCPRODUCTJD") 
addHcading l_file, l_filc 

*addMain l_titleJ_setupTabLink,!_coiumncount, ""» l_col_names, control_type. controL_argl, controL_afg2, 
control_arg3^howPrcvSciection 

addMain I_Title,I_setupTabLink,i_showPrevSeiection, l_col_names , l_CoIumnCount 

addBottom 
%> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 40 of 200 



IMT Subscription Marketing Reporting System 



addrsctasp 

<%@ Language= VBScript %> 
<!- #include fi]e="../support/global_constants.asp'' -> 
<!- ^include file='*../support/dbConnection.asp'' -> 
<)- #include file=**../suppoft/adoUtils.asp'' -> 
<!- #include file="../support/srcTab.asp" -> 
<!-#include file=''.7support/pickListObj.asp*' -> 
<!- #inciudc file=''../support/JavaScripts.asp'' -> 



<% 

'Response, Write "Action " & ''<br>* 
dim DEBUG 
DEBUG -false 

dim Mabel(lO) 

dim I_vaiues(33) 

•dimI_basis_opt(10X7) 

IJabel(a) = "Sub Revenue" 
HabeiClj-^Ad Revenue" 
ljabel(2) = "List Rental Revenue" 
ljabel(3) = "Other Revenue" 



If RequestFormCSUBMIT.x") o then 
l_action - "SUBMIT" 

else 

I_action - "x" 

end if 

•Response, Write "Action " & i_action & "<br>'' 
if L_action ^ "SUBMIT" then 
* response. write "<BR>Add envoked<BR>" 
fori = Oto 7 

!_values(i) = Request. Fomi("P_" & i ) 

next 

l_r_set_name = Request.Form("P_r_SET_NAME") 
if l_r_set_name > " " then 

objCMD. ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_add j)rod_r_set" 

objCMD.CommandType = adCmdStoredProc 

objCMD.Parameters.Refresh 
USER SUPPLIED 

objCMD.Parameters(l). Value = Session("PRODUCTJD") 

objCMD.Parameters(2). Value -Lr^set^name 

for k = 0 to 7 

IF DEBUG = TRUE THEN - 

Response. Write (k +3) & " " & k & " " & l_valucs(K) & "<br>" 
END IF 

ifkmod 2 = 0 then 
objCMD.Parameters(k + 3).Value = validateNumber(l_valucs(k)) 

else 

objCMD.Paramcters(k + 3). Value vaiidatePickList(!_values(k)) 



end if 

' Response, Write k + 3 & " = - & l_vaiues(k) & "<br>" 
next 

Set TempNonSessionVar = objCMD.ExecuteQ 

end if 

Response.Rcdirect "setupRset.asp" 
Else 

l_action - "New" 
end if 
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^Response. Write "Hate " & l_action 
%> 

<HTMLxHEADxtitIe> 

addRsetasp 

</tit!e> 

<META NAME^^GENERATOR" Content=''Microsoft Visual Studio 6.0"> 
</HEAD> 

<script language='*JavaScript''> 
<!- 

function MM^swapImgRestoreQ { //v2,0 
if {documentMM_swapImgData i= null) 
for (var i=0; i<(documentMM_swapImgData.lcngth-I); i+=2) 
docunientMM_swapImgData[i}.src = documentMM_swapImgData[i+l]; 

} 

function MM_preloadIniagesO { //v2.0 
if (documentimages) { 

var imgFiles = MM_preIoadImages.arguments; 

if {documcntpreloadArray==nuIl) document preloadArray - new ArrayO; 
var i - document preloadArray. length; 

with (document) for (var j=0; j<imgFilesJength; j-H-) if (imgFilcsO]-charAt(0)!="#"){ 
preloadArTay[i] - new Image; 
prcIoadArTay[i-H-].src = imgFiIes|j]; 

}} 

} 

function MM_swapImageO { //v2.0 

var iJ=0,objStr,obj,swapAiTay=new Array,oIdArray==KlocumentMM_swapImgData; 
for (i=0; i < (MM_swaplmage.arguments.!ength-2); i+^3) { 
objStr = MM_swapImage.arguments[(navigatorappNamc ^ 'Netscape')?i:i+i ]; 
if ((objStr,indexOf('documentlayers[')--0 && documentlayers==nuU) || 
(objStr.indexOf('document.all[') =0 && document.all =-nui!)) 
objStr = *documcnt*+objStr,substring(objStrJastIndexOfC.0.objStr.lcngth); 

obj = cval(objStr); 
if(obj HnuU) { 
swapArray[j-H-] = obj; 

swapArTay[j++] = (oidArray=-nuIl li oldArTayO-l]!=obj)?obj.src:oIdArray[j]; 
obj.src - MM_swapImage.arguments[i+2]; 
}) 

document.MM_swapImgData - swapArray; //used for restore 

} 

//-> 

</script> 

<body bgcoloi=''#99CCFF'' vlinic='*000000'' link=''003366''> 



<form mcthod='*posr action="addRSetasp'' id==fonnl name=forml> 
<tabic width-''320'' border-'*0"> 
<tr> 

<td coIspan=='*3''> 

<table width=''100%'' border==''0'* ceilspacing=''0'' cdlpadding=''0''> 
<tr> 

<td width=''25%'' valign^^top^ximg src=".ygraphics/addl222.gir width="26'' height="l4"x/td> 
<td width="75%'' colspan=''3'' valign=''top''> 
<div align==''right'*x/div> 
<div aiign="right''X/div> 
</td> 
</tr> 
<tr> 

<td width-"25%'' valign="top"> </td> 
<td width^-VSro" colspan="3" valign=-top''> 

<div align='*right**> </div> 

<div align-''right''> 
<p> 

<inputtype=-image" name=''SUBMIT" value-^SUBMIT" src=r. /graphics/submit 1222.gir width-''54'' heighC=M6" 

border-"0'' 
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alt=="Submit to Database" id=imagel> 
</p> 

<p> <font face=*'Verdana, Arial, Helvetica, sans-serif size=M"xa href=''setupRset.asp">Retum 

to Revenue Set Setup TabIe</ax/font> </p> 
</div> 
</td> 
</tr> 
</tabIe> 
</td> 
</tr> 
<tr> 

<td height^" lO*" align^^^center" width=^*'150''> </td> 

<td hcight=*'10'' colspan='*2"> </td> 
</tr> 
<tr> 

<td height='*20'' bgcolor=''003366*' align^^center" width-" 150''xfont face-" Verdana, Arial, Helvetica, sans-senf 
color=''#FFFFFF''xbxfont $126=" 1 ''>Revenue 
. Set</fontx/bx/fontx/td> 
<td height=*'20" corspan="2"> 
<inputtype=**TEXT'' name^p_r_set_name* 

id=0 valuer" si2e-'*27''> 

</td> 
</u> 

<% for i-0 to 3 %> 
<tr> 

<td height-''20'' bgcolor=*003366" align^-center** width=M50''xfont face-^Verdana, Arial, Helvetica, sans-senf 
color=''#FFFFFF''xbxfont size^" I "> 
<% 

Response, Write I_!abcl(i) 
%> 

</fontx/bx/fontx/td> 
<% 

forj-Otol 
in_cnt = i * 2 + j 
%> 

<td hei^t=*'20*'> 

<% if j = 1 then %> 
<select name='P_<%Response.write in_cnt %>*> 

<% if I_values(in_cnt) = "CPM" then %> 

<OPTION value=0>CPM or CPU 
<OPTiON value ='CPM'selected>CPM</option> 
<OPnON value ='CPLr >CPU</option> 
<% elseif l_values(in_cnt) = "CPU" then %> 

OPTION value=0>CPM or CPU 

<OPnON value ='CPM'>CPM</option> 
OPTION value ='CPU' selected>CPU</option> 
<% else %> 

OPTION vaIue=0>CPM or CPU 
OPTION value ='CPM'>CPM</option> 
OPTION value ='CPU'>CPU</option> 

<% END IF %> 
</Select> 

<% elseif j = 2 then %> 
<% else %> 

<inputtype==''TEXT'' name=*P_<%Response.write in_cm %>' size=''12" maxlength=''12''> 
</td> 
<%end if%> 

<%next%> 

</tr> 

<% next %> 
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</table> 

<p> </p> 
</fonn> 
</BODY> 
</HTML> 
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addsourcc.asp 

<yo@ Language=VBScript %> 

<!- # include ftle=\./support/g!obal_constants.asp" -> 
<]-#inciude fiie=''../support/dbConnection.asp'' -> 
<!-#incIude fae=",ysupport/adoUtils.asp" -> 
<!-#include fiie=".7support/srcTab.asp" -> 



<% 

on error resume next 
dim p_source(4) 
dim p_srcjnd(4) 
added = false 
errors = false 
for i ^ 0 to 4 

p_source(i) - REQUESTfp^source" & cstr(i) ) 
p_srcjnd{i) = REQUESTCp.srcJnd" & cstr(i) ) 
' Response. Write p_source(i) & p_src_ind(i) 
if p_source(i) > " " and p_srcjnd(i) > " " then 
added - true 

objCMCActiveConnection = strSQLOLEDB 

objCMD.CommandText = '•sp_add_source" 

objCMD.CcmmandType ~ adCmdStoredProc 

objCMD.Parameters. Refresh 

objCMD.Parameters(l).Va!ue = p_source(i) 

objCMD.Parameters(2). Value = p_srcjnd(i) 

0bjCMD.Parameters(3).VaIue = cintCSessionCPRODUCTJO")) 

objCMD.Parameters(4). Value = SessionC'SRC_^CAT_NAME") 

objCMD.Parameters(5). Value = SessionrGRP_NAME*') 

objCMD.Parameters(6). Value = SessionC'TITLE_NAME-) 
Set TempNonSessionVar objCMD.ExecuteO 
end if 
next 

ifadded = true then 

Response.Redirect ('•admin4a.asp" ) 
end if 

%> 

<html> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgcoIoi=*'#99CCFF'' vlink=^''000000'' lmk-''003366''> 



<form method^^post" action="add$ource,asp" name=forml id==forml 
<table width=*'640*' border^'O" cellpadding=-2''> 

<% prevSelections (3) %> 



<tr vaiign=''top'*> 

<td aiign-'^ieft" width=''640*' coispan='*3-ximgsrc=r7graphics/addl222.gir width=''26" height=*'14"x/td> 
</tr> 

<tr v^ign="top'*> 

<td align="left'* width^''640*' colspan^''3''> 
<pxnobr> 

<imgsrc=".7graphics/blankl222.gir width="20'' height=M6"ximgsrc=r./graphics/blankl222.gir width=**20'* 
height-''16"ximgsrc=r7graphics/blankl222.gir width-''20" height=''l6"ximg src=".7graphics^lankl222,gir width-''20" 
height=''!6"ximgsrc=".7graphicsA)lankl222.gir width="20'' height=n6"ximg s^c=^7graphics/biankl222-gi^ width=''20'' 
height-" 16"ximg src=''.7graphics/blankl222,gir width="20- height=*'16"> 
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<inputtype=''image" src=".7graphics/submitl222.gir width="54" height^-ie" border="0" aIt="Submit to Database''> 
<img src="../graphics/biankl222.gif' width="20" height='' 1 e^'ximg src-"„/graphics/blank 1222.gif width-"20" 
height="16''xfont face=" Verdana, Arial, Helvetica, sans-serif size-M"><a hret^"admin4a.asp">Retum 
to Source</ax/fontx/nobr> </p> 

<table width="265'' bordep="0'' ceUspacmg="3'' cenpadding=''2''> 
<tr> 

<tdbgcolor-"003366*'height="25'' width-" 166" align=-center''> ^^,,„^tr 
<div align=''center"xfontface-«Verdana,Arial, Helvetica, sans-serif coloT-''#FFFFFF''xbxfontsize= I >SOURCE 
NAME </fontx/bx/fontX/div> 
</td> 

<td bgcolor-"003366" height="25" width="4r aiign=''center*'> 

<div align="center''xfont face="Verdana, Arial, Helvetica, sans-serif coIor=''#FFFFFF''><bxfont 
size="r>SOURCE<br> 

INDICATOR </fontx/bx/fontx/div> 
</ld> 
</tr> 



<% for i - 0 to 4 %> 
<tr> 

<tdwidth=''166*'height-n5"align-"Ieff> . 
<div align^neft^xfont face^" Verdana, Arial, Helvetica, sans-serif color-*'^FFFFFF'*xbxfont size- 1 

color-*'#000000"> 
<% 

suSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, ''P_SOURCE*' & i,4, '^SELECT SOURCE\ -I 
objRST.close 



%> 



</fontx/bX/fontX/div> 
</td> 

<td width-M I " height-" 1 5" align-^left'^ 
<div align="leff > 

<inputtype-^ext" name-''p_srcjnd<% Response. Write i %>" size-nO** maxtength-'*10"> 
</div> 
</td> 
</tr> 

<%next%> 



<;/table> 
<p> </p> 



</td> 
</tr> 
</table> 
</foTm> 
</body> 
</html> 
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addsourcenamcasp 

<%@ Langijage=VBScript %> 

<!-#include file=^Vsuppo^^/global_constants.asp•* -> 

<1- #indude fiie=".ysupport/dbConnection,asp" -> 

<!- #include file^^.Vsupport/adoUtils.asp" -> 

<!-#include file^^^Jsupport/srcTab.asp*" -> 

<l— #indude file=".7support/setupTab.asp*' 

<% 

dim l_col_names(2) 
l_file = "addSourccName.asp*' 
l_col_names(0) = "SOURCE" 
I_col_names(l) = "DESCRIPTION" 
l_ColumnCount = 2 

|_sp_add = '*sp_Add_Source_Description" 
I_Title - "Source Description 
i_setupTabLink- = "setupSourceName.asp" 
1 showPrevSelection= false 



addAccept l_ColumnCount, l_setupTabLinlc, i_sp_add, - I 
addHeading \Ji\c, l_file 

addMain !_TiUeJ_setupTabLink,l_showPrevSe!ection,L_.Col_names , l_ColumnCount 
addBottom %> 
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adminla.asp 

<%@ Language=VBScript %> 

<!- #include file=".7support/global_constants.asp" -> 
<!- #include file=*',7suppoTt/dbConnection,asp*' -> 
<!-#incIude file='*.7support/adoUtils.asp'* -> 
<!-#include file="../support/srcTab.asp" -> 
<% 

Msg = Request.QueryString("MSG") 

if not sessionCPlD_PHRASE")>" " then 

Respon5e.Rcdirect(7welcome.asp*') 
end if 

l_this_file- "adminla.asp*' 

if (RequestFormC'dispIay")=''2" _ 

and Request.Form("setupTab")o "0" _ 

and Rcquest.FonnCsetupTab-) > " ") then 

Responsc.Redirect(Request.For7n("setupTab")) 
end if 

dim tmp 

Imp = Request.Formf cmb**) 

•RequesLFonnCcmb") 

IF tmp o "0" and tmp > " " THEN 

sessionCGRP.NAME") = tmp 

Response.Redirect(''admin2a.asp'*) 
end if 
%> 



<html> 
<head> 

<tiUe> Admin I a.asp</title> 
</head> 

<body bgcolor=''#99CCFF" vlink^'OOOOOO" link=='*003366"> 
<form method=''post*' action="<%Response. Write l_this_fiie %>" id=-form2" name-''fonn2''> 

<table width=''640'' border=''0*' cellpadding="2"> 
<tr vaIign=''top"> 



<tdwidth-''65"> 

<% '<a href=*'adminSearch.asp"> 

'<img src-r./graphics/fastfmd.gir width="36" height-''30'' border=*'0-x/a;> %> 
</td> 

<tdwidth=''425"> 

<p> <font color^^black" size="-r face=" Verdana, Arial, Helvetica, sans-senf color=b 

<% if Msg = "YES^ then %> 

You have been redirected to this page because <br> 

the session variables needed to perform the action<br> you requested have expired.<br> 

Please select the values again,<br> 

</font> 

<% end if %> 

<img src-"../graphics/drilldownl227.gir width-"47'' height-"! rxbr> 



<% 

strSQL = "select distinct GRP_NAME from CORP_INFO WHERE " & SESSIONCPID.PHRASE") 
Response.Write strSQL & "<BR>'' 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
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showQueryListBox objRST, "CInb^5. ^'SELECT PRODUCT GROUP"," " 
objRST.close 

<bputtype="lMAGE" name-"go" vaIue=''go'' src=".. /graphics/go 1 222. giP WIDTH-"33" HEIGHT="16" bordeT=0> 
</p> 



</td> 

</form> 
</tr> 

<tr valign="top'*> 
<td width=**640'' colspan=''3"> 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</htm\> 
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admin2a.asp 



<%@ Language=VBScript %> 

<1- #inciude file=".7supporT/globaI_constants.asp" -> 
<l- ^include file^^ysupport/dbConnection.asp" -> 
<!- ^include file^r./support/adoutils.asp" -> 
<!- ^include fiie^-.Vsupport/srcTab.asp" -> 
<% 

SessionCUSR_ACCESS'*) - "NONE" 
l_from RequestCTR") 
if not (l_from > " " ) then 

checkSessionVars( I ) 
end if 



l_this_file = '•admin2a.asp*' 

if (RequestFoiTnCdisplay*')="2" _ 

and RequesLFonnf setupTab'')o "0" _ 
and RequestFonnCsetupTab") > ** **) then 
Response.Redirect(RequestFormCsetupTab")) 
end if 

dim tmp 

tmp = RequestFormCcmb**) 

'response.write ('*<br>Product: " & tmp & "<br>*') 

^Response. Write tmp & " this don't work" 

IF tmp o "O" and tmp and RequesLFomiC*from") = "0" THEN 
sessionCPRODUCTJD") - tmp 

strSQL = "select TITLE^NAME from CORP.INFO where grp.name^"* & SESSIONCGRP_NAME ) . 
& and ProductJd='' & tmp 

objRST.open strSQL, suSQLOLEDB, adOpenStatic, adLockOptimistic 

session(nTaE_NAME") = objRST,Fieids(0).Va!ue 

objRST.cIosc 

'session('TITLE_NAME'*) - 

check_security 
Response.Redircct("admin3a.asp") 
else 

if Request. FormCfrom") > " " then 
I_from = Request.Formffrom") 
end if 

IF tmp o "0** and tmp > " " then 
sessionC'PRODUCTJD'') = tmp 

suSQL = "select TTTLE^NAME, GRP_N AME from CORP^INFO where" _ 
& " ProductJd='* & tmp 

objRST.open strSQL, strSQLOLEDB, adOpenStatic. adLockOptimistic 

sessionfrrTLE.NAME") = objRST.FieIds(0).Value 
sessionCGRP.NAME") = objRST.Fields(l).VaIue 



Response.Redirect(l_from) 
objRST.close 
end if 

end if 

ifnotl_from>-''then 
Session("referj)age") = "admiiL^a^asp" 
Session('Tefer_Tide*) ^ "Product" 

end if 

%> 



<html> 
<head> 

<title>Admin2a.asp</title> 



Integrated Marketing Technology 9/27/00 2:22 PM 



Page 50 of 200 




IMT Subscription Marketing Reporting System 



</head> 



<body bgcolor-'*#99CCFF" viink-"00O0O0" lmk="003366"> 

<form method^'^post'' action=''admin2a.asp" id='*form2" name="form2"> 
<table width="640" bordeT=''0'* cellpadding==''2"> 
<% if I Jrom > " " then %> 

<font size=M'' face=*'Verdaiia, Ariai, Helvetica, sans-serir coIor=bIack> 
<b>Please select a Product Id </b> 

<font> 

<input type="Hidden'' name="FR" value==''<%Response. Write l_from %>"> 
<%else%> 

<% prevSelections (1) %> 

<input type=**Hidden** name="fi:om'' value=''0*'> 
<%end if%> 
<trvaIign=''BOTTOM"> 

<td width="65"> 
</td> 

<td widlh="425"> 

<p> <img src-"../graphics/drilldownl227.gir width-M?" height=''l l" border=Oxbr> 
<% strGrp = sessionCGRP_NAME") 
ifl_from>''"then 

strSQL- "select PRODUCTJD, TITLE_NAME from 



CORP INFO where' 



& " " & SESSION('*PID_PHRASET _ 
& " Order by title_name " 



CORP INFO where ' 



border=0> 



</tr> 
<tr> 



</td> 



<td width= 



else 



end if 



strSQL = "select PRODUCTJD, TITLE_NAME from 

&" grp_name- " & strGrp _ 

& and ( & SESSIONCPID_PHRASE**) & T _ 

& " Order by title_name " 



•responsc.write C'<br>SQL: " & strSQL & '•<br>'') 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimisttc 
showQueryListBox objRST, "cmb".5, "SELECT PRODUCT"," " 
objRSTcbsc %> 

<input type="IMAGE" name="go" value="go" src="../graphics/gol222.gir 
</p> 



<%' <img src=".ygraphics/optionaI1222.gir widLh="37" height="l 1"> 
' setupTableListBox %> 
<br> 

</td> 

</tr> 

<tr valign="top"> 

<td width="640" colspan-"3"> 
<p> </p> 

</td> 

</tr> 
</tabIe> 



</form> 



</body> 
</htmI> 
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admin3a.asp 

<%@ Language=VBScript %> 

<!" ^include fi!e=".ysupport/globaI_constants.asp" -> 
<!- ^include file=''.7support/dbConnection.asp'' -> 
<!- ^include file=''../support/adoUtiIs.asp'' -> 
<!- ^/include fii€==*'../support/srcTab.asp*' -> 

<% 

'checkSessionVars(2) 
i_this_fi!e = "admin3a.asp" 
Sessionfreferjjage") = "adminSa.asp" 
ScssionCrefer^Title") = "Source Category" 

'if Request. fonnCAUTOSETUP*') o then response.redirectCtabautosetup.asp") 

'if(Request.FonnCdisplay*')="2" _ 

* and Request.Fonn("setupTab")o "0" _ 

' and RequestFormCsetupTab'*) > ") then 

' Response.Redirect(RequestForm(''setupTab")) 

'end if 

dim tmp 

tmp - Request.Formf'cmb*') 

'response, write (''<br>Source Category: " & tmp & '•<br>") 
IF tmp o "O" and tmp > " " THEN 

SessionrSRC_CAT_NAME'') - tmp 

Response. Redtrect("admin4a. asp**) 
end if 
%> 



<htmi> 
<head> 

<title>Admin3a,asp</titIe> 
</head> 

<body bgcoloi^^^SgCCFF" vlink="O0O0OO" link-'*003366"> 

<table widlh=*'640" border^^O" ceUpaddmg=''2*'> 
<% prevSelections (2) %> 

<form method^^posr action="<%Response.Write !_thts_file %>** id="form2'* name=''form2"> 

<tr valign=-BOTTOM"> 
<td width=''65'*> 

<% ' <a hre^*'adminSearch.asp''> 

• <img s^c==^ygraphics/fastfmd.gif• width="36* height^^^SO" border^''0''x/a> 

%> 

</td> 

<td width=''425''> 

<imgsrc=\ygraphics/drindownl227.gir width="47" height=nr border='*0''xbr> 



<% 

strSQL = "select SRC_CAT_NAME from SRC_CATEGORY where " _ 

& - grp_name - & SessionfGRP.NAME") & _ 

& " and PRODUCTJD^*" & SessionCPRODUCTJD") & 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, ''cmb",5, "SELECT SOURCE CATEGORY",-! 
objRST.ciose 
%> 

<inputtype=''IMAGE'' name="go*' va]ue="go" src=".. /graphics/go 1222.gir WIDTH==*'33'' HEIGHT^^Me" border==''0''> 
<p> 
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<inputtype="HIDDEK" name-"AUTOSETUP" vaIue-"Edit Auto-Setup Parameters > 
<p> 



<Jtd> 
</form> 



<%* setupTableListBox i_this_ftle%> 



</tr> 

<trvalign=''top"> 
<td width=*'640" colspaii-''3"> 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</htmI> 
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admln4a.asp 



<%@ Language- VBScript %> 

<!- # include fiie='*.ysupport/global_constants asp'' -> 
<!- #inciude file=**../support/dbConnection.asp" -> 
<!- # include fUe=''../support/adoUtiIs.asp" -> 
<!- #include file-^.ysupport/srcTab.asp" -> 
<!-#incIude fiIe="../support/JavaScripts.asp" ~> 

<% 

checkSessionVars(3) 
t_this_file = "admin4a,asp'' 

Session("refer_page'") = '•admin4a.asp'' 

Session("refer_TitIe") = "Source" 
if (Request Form(''display'')="2'' _ 

and Request.FonmCsetupTab")o "O" _ 
and RequestJonnCsetupTab") > " ") then 
Response-RedircctCRequestFormCsetupTab")) 

end if 

dim tmp 

tmp = Request ForniCcmb") 



IF tmp o "0" and tmp > " " THEN 



& and Product Jd=" & SESSlONfPRODUCTJD") 
'Response. Write strSQL 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionC'SRC_lNDICATOR") = objRST,Fields(0). Value 
objRST.close 

'sessionC-nTLE_NAME^) = 
Response. RedirectCadminSa.asp**) 
end if 

%> 

<headxtitle>Admin4a.asp</tille> 

<% LorieScripts %> 

</head> 



<bodybgcolor="#99CCFF''vIink-''000000''link--003366" -oui^a 
onUad="MM_prcloadImagesCgraphics/edittablerol222.gif,'#9458992260330;MMjreIoadlm 

5899269583T> 

<% ' <body bgcoIor-'*#99CCFF'' vlink-^OOOOOO*' link=''003366''> %> 

<table width=''640'' border^^O" cellpadding=''2''> 
<% prevSelections (3) %> 

<fonn method^-post" action="<%Response, Write l_this_file %>" id="fonn2'* name="form2''> 
<tr vatign="BOTTOM'*> 
<td width=*'65''> 

<% ' <a href^"adminSearch.asp*'> 

• <img src=".7graphics/fastfmd.gir width=*'36" height=**30" border^"0"X/a> 

%> 

</td> 

<td widdi-''500*'> 

<p> <img src="../graphics/driIIdownl227.gir width="47" height^"! r border-"0"xbr> 




<% 



StrSQL ^ '•select SOURCE_NAME from SOURCE where " _ 
& - grp_name = & SessionrGRP_NAME") & "'^ . 
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& " and PRODUCT_ID=" & SessionCPRODUCTJD") _ 
& " and src_cat_name = & SessionCSRC_CAT_NAME'^) & 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST;"cmb\5, "SELECT SOURCE", -I 
objRST.dose 

<iut type=''LMAGE- name=«go« vaiue="go" src-r7graphics/gol222.gir WIDTH=«33" HEIGHT^" 16" border-"0''> 
<p> 



</td> 
</form> 

<% • setupTableLisiBox Lthis_file %> 
</tr> 

<tr valign=*'top'*> 
<td width="640'' colspan--3':> 
<p> </p> 

</td> 
</tr> 
</tablc> 
<% 

]_query = "select SOURCE_NAME, SRC_INDICATOR, rec_id from SOURCE where " _ 

& " grp_name - '" & SessionCGRP.N AME") & _ 

& " and PRODUCT_II>-'' & SessionrPRODUCTJD") & _ 

& " and src_cat_name = & SessionCSRC_CAT_NAME") & _ 

& " Order by SOURCE_NAME " 

i_columnCount = 2 
I_addProc = "addSourccasp" 
TcditProc = "editSource.asp" 
dim 1 jitle(2X l_coluninWidth{2) 

I jit[e(0) = "SOURCE NAME " 
l_co!umnWidth(0) = n66" 
ijiUe(l) = " SOURCE<br> INDICATOR " 
l_coIumnWidih{l) = Mr 



adminTable l_Title, I_Query, l_editProc,l_addProc,l_column Width, L_CoiumnCount 
%> 

</form> 
</body> 
<Aitml> 
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admin5a,asp 

<%@ Language-VBScript %> 

<!- # include file="../support/g!obai_constants.asp'* -> 
<!- # include file~''.7support/dbConnection.asp" -> 
<l-#include file=\./support/adoUtiis.asp'' -> 
<!- #include file="../support/srcTab,asp" -> 
<!- #include fiIe=*'../support/JavaScripts.asp" -> 
<!- #include riIe=".7support/objEdit.asp" -> 
<% 

checkSessionVars(4) 
l_this_file = "adminSa.asp" 

SessionCreferjjage") - "adminSa.asp" 
SessionCreferjritle") - "Campaign" 

if(Request.Form(Misp!ay")="2'' _ 

and RequestForm{''setupTab'')o "0" _ 
and RequesLFonnCsetupTab*') > *"*) then 
Response.Redirect(Request.Form("setupTab*')) 
end if 

dimtmp 

tmp = Request. Form("cmb*') 

IF tmp o "0" and tmp > •* THEN 

sessionCCAMP_NAME") - tmp 

Response.RedirectCadmin6a.asp*') 
end if 

'Dim vars 

'Common 
dim recordcount 
dim checked_records 
dim i 

dim WhereCIause 
dim recordidlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

*Add 

if RequestformCaddbutton") > " " then response.redircctCaddCamp.asp") 
*Edit 

if Request-formCeditbutton") > " " then 

'Setup first p^e, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Gel records 

recordcount = Request.formCP^RecCount") 

•response.writeCThere are " & cstr(recordcount) & " records <br>") 

recordidlist - 

toomanyrecords = 0 

checked_records = 0 

for i = I to recordcount 

recordid = Request. formCP^check" & cstr{i)) 
if recordid > " " and len(recordidlist) > 0 then 
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checked_records = checked_records + 1 
if checked_records > 19 then 




next 



SessionCRECORDIDLIST") = recordidlist 
SessionCtoomanyrecords") = toomanyrecords 

if recordidlist> " ** then response.redirect('*nis_editcampaign.asp?pg=r) 



Tost/Delete/Copy Group Edit Info 

if RequestfonnCGroupEdif) > " " or requestform("deletebutton") > ** " or request.form("copybutton") > " " then 
'init obj 

set PGE - new objPostGroupEdlt 
PGE.init 



'Get records 

recordcount = Request.foTni("p_RecCount'') 

'response.write("There are " & cstr(recordcount) & - records <br>") 

for i = 1 to recordcount 

recordid = Request formCP_check* & cstr(i)) 
if recordid > " " then PGE.AddRecord recordid 

' response.write(recordid) 



'Set Stored Procedure info 

PGE.CIassType = "Group Edit" 

PGE.SP = "sp_edit_campaign'* 

PGETableName = "campaigns" 

if Request.form("GroupEdit") > " " then PGE.lsDelete - 0 

if request.fonii("deletebutton") > " " then PGE.IsDelete = 1 

if request.form("copybutton") > " " then PGE.IsDelete = 2 

PGE.AddParam "camp_name" 

PGE.AddParam "camp_date_fr" 

PGE.AddParam "camp_type" 

PGE.AddParam "camp_status_name'' 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

'PGE.AddParam "newstand_sale" 

PGE.AddParam "budgeted_gross_pct" 

PGE.AddParam "budgeted_vor 

PGE.AddParam "login" 

PGE.AddParam "rec_id'' 

PGE.AddParam "IsDelete" 

objCMD-ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_edit_campaign'' 

objCMD.CommandType = adCmdStoredProc 

objCMD.paramcters.re fresh 

PGEPostGroupEditsBySP 

end if 

%> 

<html> 
<head> 

<title>Admin5a.asp</titIe> 
</head> 

<% LorieScripts %> 

<body bgcoIop="#99CCFF" viink="000000" link-'*003366"> 
<tabie width="640" bordei^^O" cenpadding="2"> 



end if 



next 'i 
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<% prevSelections (4) %> 

<forTn metho<i-"post" action="<%Response. Write l_this_file %>" id^'forma" name="form2"> 
<tr valign-"BOTTOM"> 
<td width="65"> 

<% ' <a href=''adminSearch.asp''> 

• <img src="../graphics/fastfind.gif ' width="36'* height="30'' bordei-="0"></a> 

%> 

</td> 

<td width=="425''> 

<p> <imgsrc=".ygraphics/drilldownl227.gir width="47" hei^t-" I rxbr> 



<% 

strSQL = "select CAMP_NAME from CAMPAIGNS where " _ 
& " grp_name = & Session("GRP_HAME") & _ 
& - and PRODUCT_ID='" & Sessionf PRODUCT JD") & _ 
& - and src_cat_name = & Session(''SRC„CAT_NAM£") & _ 
& - and source_name - & Sessionf'SOURCE.NAME'*) & _ 
& " ORder by CAMP_NAME DESC " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, '•cmb^5, ''SELECT CAMPAIGN^ -I 
objRST.ciose 

%> <input type^^^IMAGE" name^^go" vaiue^^go" src="../graphics/gol222.gir 
WIDTH-'OS" HEIGHT-" 16" border-0> 



</p> 



</td> 
</form> 



<% • setupTableListBox i_this_flle %> 
</tr> 

<tr valtgn=''top''> 
<td width=*'640" coIspan="3''> 
<p> </p> 

</td> 
</tr> 
</table> 
<% 

'Group Edit info 

set GE = new objGroupEdit 
GEJnit 

GE.action = "adminSa.asp" 
GE.RowCount=l 

'Group Edit Show/Hide button 

if Request.fonnCSHOWGROUPEDIT'') > then 

%> <form method-"posr action='' <%Response.Wrtte l_this_file %>" id-^hidegeform" 

name==''hidegefomi*'> 

<table> 

<tr> 

<td width='*20">&nbsp</td> 
<tdxinput type^^submit" value=''Hide Group Edit" 
name-^HIDEGROUPEDrr" action-''forni,submit''x/td> 
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</u> 

</tab!e> 
</fonn> 

<% 

GE-Show = True 

else 

%> <form method^^post" action=" <%Response. Write I_this_file %>" id^^showgeforra" 
naine=''showgeform"> 

<table> 

<tr> 

<td width=''20*'>&nbsp</td> 
<tdxmput typc="submir value^^Show Group Edit" 
namc-"SHOWGROUPEDrr action='*form.submit"x/td> 

</tr> 

</table> 
</fonn> 

<br> <fonn method^TOST" action="<%=action%>" name=''Group_Edit_Fonn" cellpadding=*'3'' 

cellspacing ="3"> 

<% 

GE.Show = False 

end if 

'Campaign Name 
index = GE.Addltem 
GE.fiddType index, "LABEL" 
GE.ColumnHeader index, "CAMPAIGN NAME" 

'Campaign Start Date 
index = GE.Addltem 
GEJieldType index, "TEXT" 
GE.ColumnHeader index, "CAMPAIGN DATE" 

'Campaign Type 
index GE.Addltem 
GE.fieldTxpe index, "SELECT" 
GE.ColumnHeader index, "CAMPAIGN TYPE" 

GE.strSQL index, "select CAMP_TYPE_NAME from PROD_CAMP_TYPE where PRODUCTJD=" & 
Session("PRODUCT_ID") & ' order by camp_type_name " 

'Campaign Status 
index = GE.Addltem 
GE.fieldu-pe index, "SELECT" 
GE.ColuinnHeader index, "CAMPAIGN STATUS" 

GE.strSQL index, "select CAMP„STATUS_NAME from PROD_CAMP,STATUS where PRODUCTJD=" & 
Session("PRODUCTJD") & ' order by camp_status_name " 

'Campaign End Date 

'index = GE.AddItem 

•GE.ficldT>pe index, "LABEL" 

'GE.CohimnHeader index, "CAMPAIGN END DATE" 

'Expense Set 
index = GE.AddItem 
GE.fieldt\pe index, "SELECT" 
GE-ColumnHeader index, "EXPENSE SET" 

GE-StrSQL index, "select e_set^name from EXPENSE_SETS where PRODUCT JD=" & 
Session("PRODUCTJD") & • order by e_set_name " 

'Revenue Set 
index = GE.Addltem 
GE.fieldType index, "SELECT" 
GE.ColumnHeader index, "REVENUE SET" 

GE.stiSQL index, "SELECT r_set_name from revenuc_sets where product Jd = " & Session("PRODUCT_ID") 
& " order by r_set_name" 

•Newstand Sale 
'index = GE.Addltem 
•GEfieldType index, "TEXT" 
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'GE.ColumnHeader index, "NEWSTAND SALE" 

'Budgeted Gross % 
index = GE.Addltem 
GE.5etdtype index, "TEXT" 

GE.ColumnHeader index, "BUtXjETED GROSS PCT" 

•Budgeted Vo! 
index = GE.AddItem 
GE.fieldtype index, "TEXT" 
GE.ColumnHeader index, "BUDGETED VOL" 

'Page 

GE.MS_Page = 1 

'Display Table 
GE.DisplayEditTable 

Lquery - " seE^t CAMP_NAME as 'CAMPAIGN NAME', CAMP_DATE_FR as 'CAMPAIGN DATE', CAMPJTYPE 
as 'CAMPAIGN TYPE* " 

& " CAMP_STATUS JM AME as 'CAMPAIGN STATUS*, E_SET_NAME as 'EXPENSE SET, R_SET_NAME as 'REVENUE 
SET " 

* " & " BUDGETH:)_GR0SS_PCT as 'BUDGETED GROSS PCT, BUDGETED_VOL as 'BUDGETED VOLUME". 
RECJD from CAMPAIGNS where " _ 

& * GRP_NAME = " & Session("GRP_NAME'') & _ 

& " and PRODUCT_n>=" & Session("PRODUCTJD") & "" _ 

& - and src_cat_name = '" & Session("SRC_CAT_NAME") & _ 

& " and source_name = & SessionCSOURCE^NAME") & _ 

& " Order by CAMP_K-AME DESC " 

i_columnCouni - 8 
l_addProc = "addCamp.asp" 
l_editProc = "editCamp.asp" 
dim ljitle(8), l_columnWidth(8) 

! jitle-^0) = "CAMPAIGN NAME " 

l_colLminWidth(0)-*'152" 

IjiUeKl) = "CAMPAIGN<br> START DATE " 

1 coltimnWidth(i) = '*76" 

rtitiev2) = "CAMPAIGN TYPE " 

rcoliimnWidth(2) = "76" 

I_tite3) = "STATUS" 

i_coiixnmWidlh(3) ^ "69" 

l_titlet,4) = "EXPENSE SET " 

l_coIixmnWidlh(4) = ''73'' 

l_titie<5) - "REVENUE SET " 

LcolinnnWidth(5) = ''73" 

l_title<6) = "BUDGETED GROSS PCT 

LcoiumnWidth(6) = '*40" 

l_title(7) = "BUDGETED VOLUME" 

l_co!umnWidth(7) = "40" 



'adminTable I_TitIe, LQuery. l_cditProc,LaddProc,LcoIumn Width, L_CoiumnCount 
l_nan« = "Campaigns" 
l_editProc = "editCamp.asp" 
l_addProc= "addCamp^asp" 

set myObjEdit = New ObjEdit 

myObjEditinit I_Name, l_editProc,l_addProc, I_this_file 
myObjEditdefmeCompIex(8) 
myObjEdit.setQuery(I_query) 
myObjEditSelectTable 

%> 
</form> 
</body> 
</html> 
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admin6a.asp 

<%@ Language=VBScrip£%> 

<!-#incIude file=''.7supporl/giobal_constants.asp" -> 
<!- # include fi!e="../support/dbConnection.asp'' -> 
<!- #inc!ude file="../support/adoUtils.asp'' -> 
<l-#include fiie^^.ysupport/srcTab.asp" -> 
<l-#include file="../support/JavaScripts.asp" -> 
<!- # include file=",ysupport/objEditasp'* -> 
<1- #include fae^^.ysupport/objRecIdManager.asp** -> 
<% 

checkSessionVars(5) 
!_this_fiie = ''admin6aasp" 

Session("refer_page'') = "admin6a.asp'' 
SessionCrcfer_Title'') - "Panel" 

if {Request.Formrdisplay''K2'' and Request.FormCsetupTab")o "0" and RequestFormCsetupTab") > " ") then 

Response.Redirect(RequestForTnCsetupTab")) 

dim tmp 

imp = RequestFormf'cmb'') 

IF tmp o "0" and tmp > ** " THEN 

session(TANEL_NAME") = tmp 
Response.RedirectCAdminKeys.htm") 
end if 

'Dim vars 

'Common 

dim recordcount 

dim i 

dim WhereCIause 
dim recordidlisi 

*Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

•Add 

if RequestformCaddbutton") > " " then response.redirectCaddPanei.asp") 
'Edit 

if Request.formCeditbutton") > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objOroupEdit 
'Get records 

recordcount - Request form(''P_RecCount*') 

'response.writeCThere are ** & cstr(recordcount) & " records <br>*') 
recordidlist = '"' 
toomanyrecords ~ 0 
chccked_records - 0 
for i = 1 to recordcount 

recordid ^ RequestformCP^check* & cstr(i)) 
if recordid > " - and len(recordidlist) > 0 then 

checked_records = checked_records + I 
if checked_rccords > 19 then 
toomanyrecords = 1 

else 
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recordidIist = recordidlist + ^'' + cstr{recordid) 

end if 

elseif recordid > ** " then ' don't add comma first time 
recordidUst = cstr(recordid) 

end if 

next 

Session("RECORDIDLIST)= recordidlist 
Session("toomanyTecords'') = toomanyrecords 
sessionf page**) = 1 

if recordidIist> " " then response.redirectCms_editpanel.asp?pg=l'') 

end if 

'Post/Delete Group Edit Info 

if RequestformfGroupEdit") > " " or requestformfdeletebutton") > " " or request, formfcopybutton") > " " then 
'init obj 

set PGE - new objPostGroupEdit 
PGEinit 

*Get records 

recordcount = Request. forTnC*p_RecCounr) 

'response.write(-There are " & cstr(recordcount) & records <br>") 
for i = 1 to recordcount 

recordid ^ Request.form("P_check'' & cstr(i)) 

if recordid > " " then PGE.AddRecord recordid 
* response,write(recordid) 
next *i 

'Set Stored Procedure info 
PGECIassType ^ "Group Edit" 
PGE.SP = ''sp_edit_paner 
PGETableName = "panels'* 

if Request.fonnCGroupEdir) > " " then PGE.IsDelete = 0 

if request.fonnCdeletebutton'') > " " then PGE.IsDelete = I 

if request,fonn(''copybutton") > " " then PGE.IsDelete = 2 

PGE.AddParam "panel_name'' 

PGE.AddParam '•panel_date_start'* 

PGE.AddParam ''panel_type" 

PGE.AddParam '•panel_subtype'' 

PGE.AddParam "test-type" 

PGE.AddParam "panel^pkg" 

PGE-AddParam ''e_set_name" 

PGE.AddParam ''r_set_name** 

TGE.AddParam -newstand_sale_marker** 

PGE.AddParam "login** 

PGEAddParam "recjd'* 

PGE.AddParam "IsDelete" 

objCMDActiveConnection = strSQLOLEDB 

objCMD.CommandText = -sp_edit_paner 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.refrcsh 

PGEPostGroupEditsBySP 

'Post Edits By Query starts here ,.. 
'Build where clause 

Whereclause = " and grp__name = & SessionCGRPJsfAME") & _ 
' & " and PRODUCT lEK" & SessionCPRODUCTJD") & _ 
' & " and src cat_name = & SessionCSRC.CAT.NAME") & _ 
' & " and sou7ce_name = & SessionCSOURCE_NAME") & _ 
' & - and Camp^name '" & SessionCCAMP^NAME") & ""^ 

•Pane! Date Start 
index = PGE.Additem 

PGE.UpdateSQL index , "Update panels set panel_date_start=" 
PGE. Where index, WhereClause 

'Panel Type 
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index = PGE-Addltem 

PGE. UpdateSQL; index, " Update Panels set Panel_type 
PGE.Where index, WhereClause 

'Panel SubType 
index PGEAddltem 

PGE. UpdateSQL index, "Update Panels set panel_subtype=" 
PGE.Where index, WhereClause 

Test Type 

index = PGE.AddIlem 

PGE.UpdateSQL index, "Update Panels set test_type='' 
PGE. where index, whereclause 

'Package Type 

• index ~ PGE.additem 

PGE.UpdateSQL index, "Update Panels set panel_pkg - ' 
PGE.Where index, whereclause 

'Expense Set 
index= PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set e_set_name = " 
PGE.Where index, WhereClause 

^Revenue Set 

index = PGE.AddItem 

PGE.UpdateSQL index, "Update Panels set r_set_name = " 

* PGE.Where index, whereclause 

'Newstand Marker 
index = PGRAddltem 

PGE.UpdateSQL index, "Update Panels set newstand_saie_markei^" 
' PGE.Where index, Whereclause 

•Do it 

PGE.PostGroupEditsByQuery 
'...and ends here 

end if 



%> 

<html> 
<head> 

<title>Admin6a.asp</title> 
</head> 

<% LorieScripts %> 

<body bgcolor="#99CCFF" vlink="000000" link=="003366"> 

<table width="640" border-"0" cellpadding="2"> 

<% prevSelections (5) %> 

<form method="post" action^"<%Response. Write l_this_file %>" id^^foma" name="fonn2"> 
<td width="40"x/tdxtdximg src="../graphics/driUdownl227.gir width="47" height=" 1 1 "x/tdxbr> 
<td width='*60"> 



<% 

strSQL = "select PANEL_NAME from PANELS where " _ 
& " grp name = *" & SessionCGRP.NAME") & _ 
& " and PRODUCTJO-*" & Session("PRODUCTJD") & _ 
& " and src cat_name = '" & Session("SRC,CAT_NAME") & "" 
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& " and source_name = & SessionCSOURCE_NAMEl & 
& " and Camp_name = & SessionCCAMP_NAME") & 



objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "cmb".5, "SELECT PANEL",-1 

objRSTxlose 

%> 

<inputtype=^"IMAGE'' name^^go" vaiue^^go" src=".. /graphics/go 1222,gir 
WIDTH^^'SS" HEIGHT=''l6" border=0> 



</p> 



</td> 
</form> 

<%• setupTableListBox i_this_file %> 
</tr> 

</table> 
</fonn> 

<% 

I__cditProc = "editPaneLasp** 
l_addProc= '*addPane!.asp" 

myQ = "select PANEL_NAME AS 'PANEL NAME', " _ 
& " PANEL_DATE_START as 'PANEL DATE START, " _ 
& • PANEL_TYPE as 'PANEL TYPE', " _ 
& " PANEL_SUBTYPE as 'SUBTYPE*,"_ 

&" TEST_TYPE as TEST TYPE',". 
& " PANEL_PKG as 'PACKAGP. 
& " E_SET_NAME as 'EXPENSE SET, " , 
& " R_SET_NAME as 'REVENUE SET,"_ 

&" RECJD from PANELS where " _ 
& " grp_namc - '- & SessionCGRP.NAME") & -'" _ 
& and PRODUCT_ID^*' & SessionC PRODUCT JD") & „ 
& " and src_cat_name - & SessionrSRC_CAT_NAME'') & _ 
&"andsource_naine=='"& SessionC'SOURCE_NAME'') & 
& " and Camp_name = '" & SessionCCAMP^NAME") & _ 
& " Order by SOURCE_NAME " 
I_name = "Panels" 

set myObjEdit = New ObjEdit 
%> <% 

'Group Edit info 

set GE - new objGroupEdit 
GE.init 

GE.action - "adminSaasp" 
GE-RowCount = 1 

'Group Edit Show/Hide button 

if Request formCSHOWGROUPEDrr") > "" then 

%> <form method=''post'' action=" <%Response. Write i_this_fi]e %>" id="hidegeform' 

namc=''hidegeform''> 

<table> 

<tr> 

<td width="20''>&nbsp</td> 
<tdxinput type="submit'' value=''Hide Group Edit" 
name="HIDEGROUPEDrr"action="form.submit"x/td> 

</tr> 

</table> 
</fonn> 

<% 

GE.Show = True 

else 
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%> <form method="post" action=" <%Rc5ponse.Write I_this_file %>" id="showgeform** 
name="showgefomi"> 

<table> 

<tr> 

<td width=''20">&nbsp</td> 
<tdxinput type="submit" value="Show Group Edit" 
name^'SHOWGROUPEDIT*^ action="form.submit"x/td> 

</tr> 

</tabIe> 
</form> 

<br> <form method="POST" action="<%-action%>" name=''Group_Edit_Form'' cellpadding="3*' 

cellspacing -''3"> 

<% 

GEShow = False 

end if 

'Panel Name 

index = GE.Addltem 

GE.fleldType index, ''LABEL" 

GE.ColumnHeader index, "PANEL NAME" 

'Panel Date Start 

index = GE.Addltem 

GE.fleldType index, '^TEXT" 

GE.ColumnHeader index, "PANEL DATE START" 

'Panel Type 

index = GE.Addltem 

GE.fieldType index, "SELECT" 

GE,ColumnHeader index, "PANEL TYPE" 

GE.strSQL index, "SELECT panel_type_name FROM corp_panei_type ORDER BY paneLtype_name" 

'Panel SubType 
index = GE.Additem 
GE-fieldtype index, "SELECT" 
GE.ColumnHeader index, "SUBTYPE" 

GE.strSQL index, "SELECT panel_sub__type_name from corp_panel_sub_type order by panel_sub_type_name" 
Test t\pe 

index = GEAddltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "TEST TYPE" 

GE.strSQL index, "SELECT paneLtest_type_name from corp_panel jest_type order by panel_lest_type_name" 

Tackle Type 
index = GE.AddItem 
GE.fieldtype index, "SELECT" 
GEColumnHeader index, "PACKAGE" 

GE,strSQL index, "SELECT package_name from prodjjanel^ackage where productjd = " & 
Session("PRODUCTJD") & " order by package_name" 

'Expense Set 

index = GE.AddUem 

GE.fieldtype index, "SELECT" 

GE.ColumnHeader index, "EXPENSE SET" 

GE.strSQL index, "SELECT c_set_name from expense_sets where productjd = " & Session("PRODUCTJD") 
& " order by e_set__name" 

'Revenue Set 
index ^GE.Addltem 
GE.fieldType index, "SELECT" 
GEColumnHeader index, "REVENUE SET" 

GE.strSQL index, "SELECT r_set_name from revenue^sets where productjd = " & Session("PRODUCT JD") 
& " order by r_set_name" 

"Newstand Marker 
'index = GE.Addltem 
'GE.fieldType index, "SELECTLOV" 
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'GE.CoIumnHeader index, "NEWSTAND MARKER" 
'GE.strSQL index, "N,Y" 

'Page 

G£.MS_Page=l 
•GE.MS_Table-"paneis*' 

'GE.MS WhereClause = "where grp_name = & SessionCGRP.NAME'*) & _ 

& " and PRODUCT & SessionfPRODUCTJD") _ 
& " and src_cat_nanie & Session("SRC_CAT_NAME'') & 

& and source_name = & SessionCSOURCEJ^AME") & 

& - and Camp_name = '" & SessionCCAMP_NAME") & 
'GE.MS_OrderBy = " Order by SOURCE_NAME " 

'Display Table 

GE.MS_Page-l 

GE.DisplayEditTable 

myObjEditinit l_N*ame, I_editProc,l_addProc, !_this_file 
myObjEdiLdefmeComplex( 1 0) 
myObjEditsetQuer>(myQ) 
myObjEditSeiectTable 



</body> 
</htmi> 
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adminindex.asp 

<%@ Language^VBScnpi %> 

<!-- ^include file="../support/globai_constants.asp" -> 

<!- #include fi[e="„/siJpport/dbConnection.asp" -> 

<!- #inciude fiIe=".7support/adoUtiis,asp*' -> 

<html> 

<head> 

<titIe>IMT Network</tit]e> 
</head> 

<body bgcoloi-"99CCFF'' background=".7graphics/adminhorzsIice.gir text="#O0O00O" iinIc-''6699CC" marginwidth=''0" 
marginheight=''0'' leftmargin=**0'' topmargin-"0"> 
<form method="posr action id^^formT name="formr> 
<table width=''660" border="0" cellspacings" 10** ceiipadding="0"> 
<tr> 

<td width="162*'> <br> 
<form METHOD="POS'r ACTION="AdminIndex.asp" id="form2*' name="fonn2'*> 
<% 

'dim src 

'src = RequestFormCGo") 
dim v_state, v_tmp, v_name 
dim strTable, strField, strWhere 

v_state = RequesLFoni3(**state'*) 



if v_tmp o •'0" and v_tmp > " " then 
if v_state = "PRODUCT GROUP* THEN 
v_state = •'PRODUCT* 
SessionCTABLE") = " CORP.INFO * 
SessionCFIELD") - " PRODUCTJD, TrrLE_NAME* 
SessionCWHERE*) = " GRP_NAME = & v_tmp & 
' Response. Write ''<mput type- Hidden* name='GRP' value- " & v_tmp &*">'' 
elseif v_state = "PRODUCT'' THEN 
v_state = "SOURCE CATEGORY" 
SessionCTABLE") - " SRC_CATEGORY " 
SessionCFIELD") - " SRC_CAT_NAME " 
SessionC'WHERE**) = " PRODUCTJD = & v_tmp & " " 
Session("PRODUCTJD") = v_tmp 
end if 
else 
' default case 

v_state =''PRODUCT GROUP" 
v_name ^"GRP** 

Session("TABLE") = ' CORP_INFO " 
SessionCFIELD") = " distinct GRP_NAME " 
SessionCWHERE")-*" 



'ShowRecords objRST. *HI dude" 
end if 

strTable - Session("TABLE") 

sUField= SessionCFIELD") 

StrWhere = Session("WHERE") 

' Response.Write (strTabk & strField & strWhere) 

strSQL = "select " & strField & " from " & strTable ' & " where " '& strWhere 
ifstrWhere>""THEK 
StrSQL = StrSQL & " where " & strWhere 
end if 

objRST.open strSQU stiSQLOLEDB, adOpenStatic, adLockOptimistic 
showLisSox ObjRST, *cmb", false, "SELECT & v_state , false 
objRST.cIose 

'Response.Write "<inpui type='Hidden* name="* & v_name & value=='" & v_state & '**> 
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%> 
</td> 

<td rowspan^''^" width="468'' vaIign=''top"> 
<div align="center"> 
<p> </p> 
<p> </p> 
</div> 
</td> 
</tr> 
<tr> 

<tdwidth-"l62"> 
<div align=''right"> 

<input typc^^im^e" src=",./graphics/smaIIgo.gir width=-83" height^^SO" name^"Go'' Alt^^Go": 

</dtv> 
</td> 
</tr> 
<% 

v^grp = RequesLFormCGRP**) 

ifv_state = "PRODUCT_GROUP" THEN 



%> 

<div align^^righfximg src==''../graphics/showtablenow.gif width="87** height=''14'*> 

</div> 
</td> 
</tr> 
<tr> 

<td width=-162''> 

<tabie width="190'' border^-O** cellspacing=*'0*' cenpadding^-O** align="center''> 
<tr> 

<td height-"25''> 

<div align="righr><img src="„/graphics/preselect21ineslft.gir widlh^^Te" height=*26"x/div> 
</td> 

<td height="25"> 

<div align=''Ie{t''ximg src="../graphics/preselect21inesrt.gir width^^Se" height='*26''x/div> 

</td> 
</ir> 
<tr> 

<td> 

<dtv aIign=*'right'*xfont size='*-4*' face=" Verdana, Ariai, Helvetica, sans-serir>Product 
Group: </fontx/div> 
</td> 

<tdxfont size-M" face=="Verdana, Arial, Helvetica, sans-serirxb><variable</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div align^'^righfxfont size=''-4" face^^^Verdana, Arial, Helvetica, sans-serir>Product:</font> 
</div> 
</td> 

<tdxfontsize^M" facc=" Verdana, Arial, Helvetica, sans-serirxb><variabIe<ybx/font>></td> 
</tr> 
<tr> 

<td> 

<div align=*'right"xfom size=M* facc=='*Verdana, Arial, Helvetica, sans-serif '>Source 
Category:</font> </div> 
</td> 

<tdxfont size==''-4'* face^** Verdana, Arial, Helvetica, sans-serirxb><variabIe</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div align="right''xfont si2e=''-4'' face="Verdana, Arial, Helvetica, sans-serif '>Source:</font> 
</div> 
</td> 

<tdxfont size=''-4*' face^^^Verdana, Ariai, Helvetica, sans-serirxb><variable</bx/font>></td> 
</tr> 
<tr> 
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<td> 

«iiv align-*'right"xfont si2e="-4" face=" Verdana, Ariai, Helvetica, sans-serir>Campaign:</font> 
</div> 
</td> 

<tdxfont size-M" face=" Verdana, Arial, Helvetica, sans-serirxb>&U;variabIe</bx/font>></td> 
</tr> 
<tr> 

<td> </td> 
<td> </td> 
</tr> 
</table> 
</td> 
</tr> 
<tr> 

<td widths" 162*'> 

<pximg src="../graphics/optionalASUT.gif ' width^-S?" height="23"x/p> 
<p> 

<seiect namc='*SELECT ONE"> 
<option>SELECT ONE</option> 
<option>&it;Variable></option> 
<option><Variab!e></option> 
</select> 
</p> 
</td> 
</tr> 
<tr> 

<td width-"l62''> 

<div align^^right^ximg src=".Vgraphics/showtablenow.gir width=*'87" height^" 14''> 
</div> 
</td> 
</tr> 

<%end if%> 

</table> 
</form> 
<Vbody> 
</htmI> 
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adminindexiogon.asp 

<%@ Unguage=VBScript %> 

<l- # include file=''.,/support/gIobal_constants.asp" -> 

<!- #include file^^.ysupport/dfaConnection.asp" -> 

<!- #include ^Ile=^./support/adoUtils.asp" -> 

<% 

dim strName 
dim strPass 

StrName = RequestServerVariables(" AUTH.USER") 
StrPass - RequestServerVariables("AUTH_PASSWORD") 
SessionCU") = strName 
Session(''P'') = strPass 



%> 

<html> 
<head> 

<titie>IMT Network</tit[e> 
</head> 

<frameset rows-"97,*'' noresize 0015=-*" {rameborder='*NO" border^^O** framespacing="0*'> 
<frame src=**adminnavbar.asp" name^^navigation" scrolling="NO'' noresize firameborder="NO' 
<frame src^^weicome.asp" name^^main" scrolling^'YES" framebordei=''NO"> 

</frameset> 

<noframesxbody bgcolor=*'#FFFFFF'*> 

</bodyx/noframes> 
</html> 
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adminkevs.asp 

<%@ Language^ VBScript */o> 
<t-#include file=".ysupporL'gIobal_constants.asp" -> 
<!- ^include fiIe=",./support/dbConnection.asp'* -> 
<!- #include file=" Jsuppoft/adoUtiis.asp" -> 
<!- #include fiie="„/support/srcTab.asp'' -> 

<% 

l_debug = r set to I if you want to debug this page 



if (Request Form('*display'')='*2" _ 

and Request.FormrsetupTab")o "0" _ 
and RequestFormCsempTab*') > ** then 
Response.Redirect(keqi>esLFormCsetupTab")) 

end if 

if Request("add'*)=*'rthen 
)_AvaiICount = Request-FormfAvailCount") 
if i_debug- I then 

Response. Write l_avaiIcount & ''<br>" 

end if 

l_AvailCount = clng (l_AvaiICount) 
for j = I to l_availcount 
l_val = Request. Form ("p_check" & j) 
' Response. Write j& "Work damn it" & Lval & '•<br>*' 
ifl_val>*'**then 

my_recjd = cing(l_val) 
objCMD. ActiveConnecdon = strSQLOLEDB 

objCNID.CommandText = "sp^Add^Keys" 
objCNlD.CommandType = adCmdStoredProc 
ifl_dcbug^ 1 then 

Response. write "rec id & recjd & -<BR>*' 

Response.write"SessionCSRC CAT_NAME') " & SessionrSRC_CAT_NAME*') & "<BR>'' 
Response.write-'SessionCSRCJNDICATOR') -& SessionrSRC^INDICATOR") & •'<BR>'' 
Responscwrite "SessionCCAMP NAMEO " & SessionrCAMP_NAME") & '•<BR>'' 
Response. write "SessionCPANECNAMEO " & Session("PANEL_N AME") & VBR>'' 

end if 

objCNlD.Parameters.Rcfrcsh 
objCN{D.Parameters(l). Value = my^recjd 
objCNiD.Parameters(2).Value = SessionrSRC_CAT_NAME") 
objCMDParameters(3). Value - SessionCSOURCE.NAME") 
objCMD.Parameters(4). Value = Session("SRC_INDICATOR") 
objCMD.Paramcters(5). Value = SessionCCAMP_NAME") 
objCMD.Parameters(6). Value - SessionCPANEL_NAME") 
ifl_dd>ugo 1 then 

Set TempNonSessionVar = objCMD-ExecuteQ 

else 

RESPONSE.^^Tite "would have executed here<br> " 
end if 

' Response. Write my_recjd & *<br>- 
end if 
next 
end if 

diml_pos(10) 

'strSQL = " select full_procno_key + * - '+ ltrim(str(mail_qty)) 
*& " + convert(varchar(l2),dt_vaJid_to)) MY_F:EY, RECJD " _ 
StrSQL = " select full_promo_key MY_KJEY, RECJD " _ 
& " from avail_keys " 

& " where Product Jd ^ • & session("PRODUCTJD") 
'& " and sourcejdentifier - & sessionCSRC_INDICATOR") & " " 
ORderby = " Order by * 
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fori = i to 10 
lj>os(i) = Requestf Key Position" & i) 
iflj)os(i)>''" then 
'SQL 

strSQI = strSQL & " and POSITION" & i _ 
& Requestf KeyPosition- & i) & 
'Order by clause 

runMe = true 

end if 

OrderBy = OrderBy & Position'' &!&"," 
next 

if (RequesLFormCrunMe") = " P ) then 

runMe - true 
end if 

Orderby = ORderby & " FuII_Promo_key " 

StrSQL = StrSQL & & OrderBy 
•Response, Write strSql & ''<br>'' 
if (Request FormCdispIay") < " ") or (Ij)os(l) < " •')then 

l_pos(l) - SessionCSRC_rNDICATOR'') 
end if 

•Response. Write '•<BR> " & strSQL & ''<BR>'' 
%> 



<html> 
<head> 

<titie>IMT Network</titIe> 



<script tanguage=*'JavaScript''> 
<!- 

function MM_swapInigRestoreO { //v2.0 
if (documentMM_swapimgData != null) 
for(var i=0; i<(documentMM_swapImgData.length-l); i+=2) 
document.MM_swapImgData[i].src = document.MM_swapImgData[i-f-l]; 

} 

function MMjjreloadlmagesQ { //v2.0 
if (document, images) { 

var imgFiies = MM_preloadimages,arguments; 

if (documentpreloadAn-ay==null) document.preloadArray = new ArrayQ; 
var i = documentpreloadArray.length; 

with (document) for (var j=0; j<imgFiles.length; j-M-) if (imgFiiesIj].charAt(0)!="#'*){ 
preIoadAn-ay[i] - new Image; 
prcloadArray[i++].src = imgFiles[j]; 

}} 

} 

function MM_swapImageO { //v2,0 

var i j=0,objStr,obj,swapArray==new Array,oIdArray=documentMM_swapImgData; 
for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) { 
objStr = MM_s\^plmage.arguments[(navigatonappName = 'Netscape')?i:i+1]; 
if ((objStrJnd'exOf('document,layers[')=0 && documentJaycrs^uU) || 

(objStrJndexOfl'documentallO ^ && documentall =^uU)) 
objStr = •document*+objStr.substring(objStrJastIndexOfr.*),objStrJength); 
obj = eval(objStr); 
if(obj!=null){ 
swapArray(j-K+) = obj; 

swapArray[j++] = (oIdArray==null U oldArray[j-l]!==obj)?obj.src:otdAnay|j]; 
obj.src ~ MM swapImage.arguments[i+2]; 
}> 

document.MM_swapImgData = swapArray; //used for restore 

} 

//"> 

</script> 
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</head> 
<body> 



<table widths" 1253" border="0'' cellspacing="10'* cellpadding==*'0"> 
<tr valign="top"> 
<td width="195" height-"23" vaIign="top"> 
<table> 
<tr> 
<td> 

<imgsrc=^./graphics/adminopselectavaiLgi^ width^neO" height="23" align="top"> 

</td> 

</trxtr> 

<fonn method=*'posr action^^AdminKeys.asp" id-"formr name^'formr^ 
<td widths" 1 95'* rowspan=-2*' height^"30'' valign=**top*' aiign=''left"> 
<div align="left''x/div> 

<tabie width^^iSO^ border=-0" cellspacing="r cellpadding^^O" align="left"> 
<tr> 
<%i-0 

fori = I to 10 %> 
<td> 

<div align=''c€nter''> 

<font sizc=''-4- face='' Verdana, Arial, Helvetica, sans-serir> 
<bx% Response.Write i %> 
</bx/fontx/div> 
</td> 

<%next %> 
</tr> 
<tr> 

<%fori=^ltolO%> 
<td> 

<div a!ign=''center''> 

<input o^pe='*text'' name^^KeyPositioiKro Response. Write i %>" size-M" maxlength=''2- value=''<% Response. Write 
!_pos(i) %>"> 



</div> 
</td> 

<%next %> 
</tr> 
</tabIe> 

</td> 
</tr> 
<tr> </tr> 
<tr> 

<td widths" 195" height="30" valign^''top''> 
<div align-''ri^t'*> 

<inputtype=''image'' src=*../graphics/smallgo.gif width^^SS" height="30'' name-^'Go" AJt=''Go' 
</div> 
</td> 
</tr> 
<tr> 

<td widths" 195''> 
<% sessionlnfo (6) %> 
<% accesSetupTab %> 

</td> 
</tr> 
<tr> 

</tr> 
</tab[e> 
</td> 
</forTn> 
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<% ' it all starts here %> 

<td rowspan="7" width='' 1556'" valign="top"> 
<div align="center"*> 

<pXfont face=*' Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfontsize=T> 
</fontx/bx/fontx/p> 
<divaiign=''left''> 

<table widths" 1548" border='*0'' censpacing--3" ceJIpadding-"2"> 



<%IFRUNMETHEN 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

if (objRST.EOF = true) then 

objRstxlose 

%> 

<tr> 

<td VALIGN="TOP'*> 

<table> 

<tr> 

<td width=*'24*' height=*25*' align=*'center"> 
<FONT COLOR=''RED''> 

No Available Keys Meet this Criteria </FONTxAd> 
</trx/tabie> 
<%else 
%> 

<tr> 

<td VALIGN-TOP-> 
<table> <% 'Available Keys Table *%> 
<tr> 

<td width="24'' height="25'' align=*'center"> </td> 
<td width="24*' height-"25'' align="center''> 

<form method=''post'* naine=*'myForm''> 

<input type^^Submit" id="Submitr name^^Submitr value-" Assign Keys'*> 
<input type=button valuc=''Select All" onCHck="checkAnO''> 
<input type=button vaIue="Unselect Air onCiicIc=''unCheckAI10'*> 
<tnput type=''hidden'' value^T name=='*add*'> 
<input type='*hidden" value^"!** name=^'*runMe*'> 
<% fori==ltoIO 

ifl_pos{i)>'"'then %> 
<input type="hidden-value="<%Response. Write Ij)os(i) %>" 
name=''KeyPosition<%Response. Write i %>"> 

<% 
end if 

next%> 

<input type=''hidden" value^T namc="runMe''> 
</td> 
</tr> 
<tr> 

<td wtdth=*'24'' height=*'25" aHgn=''center''> </td> 
<td width="140" height==''25"> </td> 
</ltxti> 

<td w!dth="24'' height=''25'' align==**center''> 
<div align=''center''> 
<br> 
</div> 
</td> 

<td width-" 140" height="25" bgcolor="003366"> 
<div align='"center**> 

<font face="Verdana, Anal, Helvetica, sans-serir coior="#FFFFFF''xb> 
<fontsize=T> 
AVAILABLE 
KEYS 

</fontx/bx/fontx/div> 
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</td> 
<ytr> 



<% 

dim i ' count variable 
i-0 

Do While ObjRST.EOF = False 

i = i+ 1 

%> 

<tr> 

<td width-"24" align='*center''> 
<div align=''c€nter''> 

<input type="checkbox*' name="p_check<%Response.write i%>'' value=**<% Response.write ObjRST.FieldsCRECJD") 

%>"> 

</div> 
</td> 

<td width=*'140" bgcolor=TFFFFF*'> 
<font si2e="-4'' face-*' Verdana, Ariai, Helvetica, sans-serir> 
<% Response.write ObjRSTJieldsCMY_KEY") %> 
</fontx/td> 
</tr> 

<% 

ObjRstmoveNExt 
loop 

objRstxlose %> 

<input type^^Hidden" name^^AvailCount" value="<%Response. write i 

<SCRIPT LANGUAGE=**JavaScripr> 



<!- Begin 

function checkAllQ { 

for (var j = I; j <= <% Response.write i %>; j-H-) { 
box = evalC'documenl.myFonn.p_check*' + j); 
if (box.checked = false) boxxhecked - true; 
} 

} 

function unCheckAllQ { 

for (var j 1 ; j <^ <% Responscwrite i %>;]++) { 
box = eval("document.myFonn.p_check'* + j); 
if (boxxhecked = true) boxxhecked = false; 
} 

} 

// End -> 
</script> 



</tabie> 

</td> 
</form> 

<% end if 

end if %> 

<tdVALIGN=''TOP"> 
<table> <% 'Assigned Keys Table *%> 
<tr> 



<td width="75" height="25"> </td> 
<td width==*'25'' height=='*25''> </td> 
<td height=''25" coIspan="8-> 
<div align='*lefl''> 
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<font face="Verdana, Arial, Helvetica^ sans-serif* 

<font size=*'r'><% REsponse.wTite Session("PANEL_NAME") 

PANEL/ ASSIGNED KEYS 
</fontx/bx/fontx/div> 



<td width^-TS" height-'*25">&nfasp;</td> 
<td width=-25" height=*'25''> </td> 
<td bgcolor^-003366'' height^"25*' width=*'I40''> 
<div align=*'center'*xfont face^^Verdana, Arial, Helvetica, sans-serif 

KEY </fontx/bx/fontx/div> 
</td> 

<td bgcolor='*003366" height=''25" width=*'210" atign=''center"> 
<div aiign=*'center'*xfont facc^" Verdana, Arial, Helvetica, sans-serif 

DESCRIPTION </fontx/bx/fontx/div> 
</td> 

<td bgcoloi=''003366* height=''25" widlh="77"> 
<div align=''center''xfont face^** Verdana, Arial, Helvetica, sans-serir 

QTY </fontx/bx/fontx/div> 
</td> 

<td bgcolor-''003366" heigjit="25" width=''U9*> 
<div a)ign'=''center"xfont face="Verdana, Arial, Helvetica, sans-serif 

QTY OVERRIDE</fontX/bX^font></div> 
</td> 

<td bgco[or="003366" height^'*25'* width=*'238"> 
<div align^^center^xfont face^" Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxfont size='' 1 ''>LIST</fontx/bx/fontx/div> 

</td> 

<td bgcolor="003366" height=-25" width-''56''> 
<div align=''center"xfont face=" Verdana, Arial, Helvetica, sans-serif 

colop=''#FFFFFF"xb><font size^" I ">LIST 

CPM</fontx/bx/font> </div> 
</td> 

<td bgcolor=''003366" height=-25" width="175''> 
<d!V aHgn=**center''xfont face-** Verdana, Arial, Helvetica, sans-serif 

coIor-''#FFFFFF-xbxfont size=" I ''xnobr>EXPENSE 

SET </fontx/bx/fonlx/div> 
</td> 

<td bgcolor=*'003366'' height--25'' width=-175"> 
<div aiign='*centcr''xfont facc=*'Vcrdana, AriaJ, Helvetica, sans-serif 
color="#FFFFFF^xbxfont size-^" 1 ''xnobr>REVENUE 

SET </fontX/bx/fontX/div> 
</td> 
</tr> 
<% 

StrSQL - "select FULL_PROMO_KEY, P_KEY_DESCR, KEY_MAIL^QTY, - _ 

& - mail_qty override, list name, list cost_rollout_cpm, e_set name, " 
&"r_set_name,keys.recjd"recjd*'_ " 

& " from keys,Iist_names where ]ceys.productJd=="& ScssionfPRODUCTJD") _ 

& ** and keys.camp^name & SessionCCAMP^NAME") & " _ 

& " and keys.source_name = *** & SessionCSOURCE.NAME") & " 

& - and keys.pancl_name='*' & ScssionCPANEL.NAME") & * _ 

& and keys,src_cat_name- " & SessionCSRC^CAT^NAME") " _ 

& " and keys,productJd *= list_names.product_id 

& " and keysJistJd *= list_names.rec_id " _ 

& " Order by fulIj3romo_key ** 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
' count variable 
i=0 

Do While ObjRST.EOF = False 
i = i+l 



coior=*'#FFFFFF'^><b> 
%> 

</td> 
</tr> 
<tr> 

coIor=''#FFFFFF"xbxfontsize="r>PROMOTION 
color=-#FFFFFF"xbxfont size^" I ''>KEY 
color-"#FFFFFF''xbxfont sizc=*^ 1 ''>MAIL 
color="#FFFFFF"xbxfont si2e=''rxnobr>MAlL 
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%> 



<tr> 

<%if(i = l)then %> 

<td width=-75" rowspan=''3'' align="center"> 

<div aiign="ccnter"x/div> 

<div align="cemer"xnobr> 

<font face^^Verdana, Arial, Helvetica, sans-serif'xfont size=*'r> 
</fontx/fontx/div> 
<div altgn=''center''> 
<br> 
</font> 
</div> 
</td> 

<% elseif (i= 2 or i = 3) then %> 

<%else %> 
<td>   </td> 

<%end if%> 

<td wi'dth="25''> 

<div aiign-**right''> 

<a href="editKeys.asp?2=<%Response. write objRST.fieldsfRECJD") %>"> 

<img src=''.ygraphics/editarrow,gtr width=="24* height=*'I r> 

</a> 

</div> 
</td> 

<ld widths" 140'' bgcoIor=''#FFFFFF'' height=*15"> 

<font size=*'-4'' face^" Verdana, Arial, Helvetica, sans-scnP> 

<% Response, write ObjRST.Fields(*'FULL_PROMO_KEY") %> 

</fontx/td> 

<td width-"2I0'' bgcolor-^fFFFFFF- height="15"> 
<font size-M" facc=- Verdana, Arial, Helvetica, sans-serir> 
<% Response, write ObiRST.F£dds("P_KEY^DESCR") %> 
</fontx/td> 

<td widlh=''77'' bgcoIor=''^^FFFFFF- height='*I5"> 
<font size^''-4'' face=''Verdana, Arial, Helvetica, sans-serir> 
<% Responsc.write ObjRST.FieIdsCKEY_MAIL_QTY'*) %> 
</fontx/td> 

<td width="l 19" bgcoloi^'*#FFFFFF" height==''15''> 

<font sizc=*''-4* facc=*Verdana, Arial, Helvetica, sans-serir> 

<% Responscwrite ObjRST.FieldsCMAlL^QTY.OVERRIDE") %> 

</fontxytd> 

<td width=''238'' bgcolor="#FFFFFF*' height=M5'"> 

<font size^M" facc^" Verdana, Arial, Helvetica, sans-serir> 

<% Responscwrite ObjRST.FieldsrLIST_NAME'') %> 

</font> 

</td> 

<td wtdth-^Sfi" bgcoior--#FFFFFF- height-'' 1 5''> 

<font si2e='*-4'' face-*'Verdana, Arial, Helvetica, sans-serir> 

<% Responscwrite ObjRST.FieldsCLIST_COST„ROLLOUT,CPM") %> 

</font> 

</td> 

<td widths" 175" bgcolor^^SFFFFFF" hei^t=''15"> 

<font size="-4* face="Verdana, Arial, Helvetica. sans-serir> 

<% Responscwrite ObjRST.FieldsrE_SET_NAME") %> 

</font> 

</td> 

<td width=-175'' bgcolor-"#FFFFFF'' height="15''> 

<font size^M" face-" Verdana, Arial, Helvetica, sans-serir> 

<% Responsc.write ObjRST.Fields("R_SET_NAME") %> 

</font> 

</td> 
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</tr> 
<% 

objRST.moveNext 
loop %> 
</tabie> 
</td> 
</tr> 



</tabIe> 
</div> 

<p> </p> 
</div> 
</td> 

<% ' it ail ends here %> 
</tr> 

</Uble> 

</fonn> 
</body> 

</html> 
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adminkevsteftasp 



<%@ Language=VBScript %> 

<i- # include file=r7support/globai_constants,asp'" -> 

<t- # include fiie^". Jsupport/dbConnection.asp" -> 

<i- #include file=".7support/adoUtils.asp'' -> 

<!- # include ftle=^./suppo^t/srcTab.asp•' -> 

<!-#include file="../support/keys.asp'' -> 

<% checkSessionVars(6) %> 

<html> 
<head> 
<scripp' 

function refreshQi 
var kevin = parent. frames.Right ; 
kevinJocation.href "adminKeysRight.asp" ; 

} 

</script> 

<title>IMT Network</title> 
</head> 



<% 

l_debug = 0 

L_TH1S_FILE ^ "admtnKeysLeft.asp" 
' l_AvaiICount = Request.Fonn("AVAlLCOUNT") 
' Response. Write "availCount = " & Lavailcount & ''<br>'* 

'on error resume next 

if RequestFormCADD'*)=''rthen 
'Response, Write l_avaiIcount & '*<br>*' 
l_AvatlCount = Request FormCAvailCounf) 
'Response. Write I_avaiIcount & *'<br>'* 
l_AvailCount = clng (l^AvailCount) 
server.ScriptTimeout = 5000000 
for j = 1 to l_avaiicount 
l_val = Request.Form ("p_check" & j) 
* if l_debug= 1 then 

' Response. Write j& "Work damn it" & Lval & **<br>" 
' end if 

if l_val>'"' then 

my_rec__id = clng(l_vai) 
objCMD.ActiveConnection = strSQLOLEDB_alt 



objCMD-CommandText •*sp_Add__Keys*' 
objCMD.CommandType = adCmdStorcdProc 
objCMD.Parameters.Refresh 
ifl_debug= 1 then 
Response. Write my_rec id & ''<br>" 
Response. Write SessionCSRC_CAT_NAME")& -<br>'' 
Response. Write Session("SOURCE_NAME'*)& •'<br>" 
Response.Write SessionrSRC_INDICATOR")& ''<br>" 
Response. Write SessionCCAMP^NAME") & -<br>'' 
Response.Write ScssionfPANEL.NAME'') & '•<br>- 
end if 

objCMD.Parameters(l).Value = my_rec_id 
objCMD.Parameters(2).Value = SessionCSRC_CAT_NAME'') 
objCMD.Parameters(3). Value = Session{"SOURCE_NAME") 
0bjCMaParameteis(4), Value - ScssionrSRC_IKDICATOR") 
objCMD.Paraineters(5). Value = Session^ CAMP^NAME") 
objCMD.Parameters(6). Value = SessionC*PANEL_NAME") 
ifl_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteQ 



else 
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Response.write "I would have executed here, pai <br> but you're debugging. Turn 
debug off in the source code to resume normal operations<br>''; 
end if 

end if 
next 



end if 
%> 

<% dim l_query 
dimlj)os(lO) 
dim I_dispiay 

l_display = RequestFormCDISPLAY") 
l_query = select full jDromo_key MY_KEY, RECJD ' 
& " from avail_keys " _ 

& " where Product id = " &: session("PRODUCT_rD") 



Lquery = " select full_promo_key MY_KEY, RECJD " _ 
& " from avail_keys " _ 

& - where Productjd = " & sessionfPRODUCTJD") 
•& " and sourcejdentifier = & sessionCSRC.lNDICATOR") & " 
ORderby=^" Order by" 

fori = I to 10 

l_pos(i) = trim{Requestfomi("KeyPosition" & i)) 

if l_pos(s) ^^^^^^^"^ j^^^^^ ^ , POSITION- &!&* = "•& trimCRequestFormCKeyPosition- & i)) & 

l^query - Lquery & " and substring(fun_promo_key/ & i & = & l_pos(i) & " 
runMe = true 

end if 

' OrderB> = OrderBy & " Position** & i & " 

next 



if (Request. FormC^ninMe") =^ T ) then 

runMe - true 
end if 

Orderby = ORderby & " Full_Promo_key " 

if(trim(l_pos{l))<"")then 

1 _pos(l) = SessionCSRC_lNDICATOR-) 
l_query = l_query & " and POSmONl" _ 
trim( l_pos(l)) & " 

end if 

Lquery Lquery & - " & OrderBy 



<% if RequestC'add^Kr them %> 

<body bgcolop="#99CCFF" vlisak-^^OOOOOO" link="003366'' 
marginwidth-^O" margtnheighc=*'0" leftmargin="0'' topmargin^^O" 
onLoad='*refreshO;"> 

<% else %> 

<body bgcolor='*#99CCFF*' vlimk-^'OOOOOO" Unk=''003366'' 
marginwidth="0" marginheight="0" leftmargin=''0'' topmargin="0^ > 
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<% 
end if 
%> 



<table width=''185'' ceilpadding="2''> 
<tr> 

<td coispan^^S" height="39'' width-" 152"> 

<% keySearchBoxes l_pos,"adminKeysLeftasp", false %> 

<tr valign^-top" align=''ri^t*'> 
<td colspan=''4''> 

<div align="left''xbr> 

</div> 

<div aHgn="left''x/div> 
<p> 

<fonn method=''posr action-''<% Response. Write L_THIS_FILE %>" name^-myForm" id=forml> 

<%fof i=ltolOyo> 
<inputtypc=''HIDDEN'' 

name=="KeyPositioa<% Response. Write i 

valuer" <% Responscwxite l_pos(i) %>**> 
<% next 
in display = T then %> 

<in"puttype="IMAGE" src=".7graphics/assignkeysl222.gir width--9r height="28*' border-'*0**> 
<%end if%> 
</p> 
</td> 
</tr> 



<U vaIign=''top"> 

<td colspan==''4'* align=''left''> <br> 

<input type='*HIDDEN" name-'ADD" value="r> 

^nputtype-^HIDDEN" name-" DISPLAY" value=''r> 

<% 

ifMisplay-"!" then 
'Response. Write l_query & *'<BR>'' 
AvailK:eysTable(I_query) 
end if %> 



</td> 
</tr> 
</table> 
</fomi> 
</body> 
</html> 
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adminkcvsrightasp 

<%@ Laiiguage=VBScript %> 

<!- # include file="„/support/global_constants.asp" -> 

<!- # include file='*.7support/dbConnection.asp" --> 

<t- #mctude fiIe=''.ysupport/keys.asp" -> 

<!- #inciude file=''.ysupport/JavaScripts,asp'* -> 

<!- # include fiIe="../support/srcTab.asp'' -> 

<!- ^include file^^.Vsupport/adoutils.asp'* -> 

<i- # include file="../suppoft/objEdit.asp" -> 

<% 



L_THIS JILE = "adminKeysRightasp" 
rcsponse.expires - 0 
response.esqjiresabsoiute = NowQ - 1 
response.addHeader *'pragma","nocache" 
responsc.addHeader "cache-control "/private" 
Response.CacheControI ~ "no-cache" 
if Request.Fonn(" ACTION") - "PANEL" then 

l_panel = RcqucstFormCcmb") 

SessionfPANEL.NAME") - l_j)anel 

end if 

'Dim vars 

'Common 
dim recordcount 
dim checkcd_rccords 
dim i 

dim WhereCiause 
dim recordidlist 

*Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

'Edit 

if Requestfonn("editbutton'') > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Get records 

recordcount = Request.form(*'p_RecCount*') 
toomanjrecords - 0 

'response.writeCThere are " & cstr(recordcount) & " records <br>'') 

checked_records - 0 
for i = 1 to recordcount 

recordid - Requestform(*'P_checfc*' & cstr(i)) 
if recordid > and len(recordidlist) > 0 then 

checked_records = checked_records + 1 
if checkedj-ecords > 19 then 
tocmanyrecords - I 

else 

recordidlist - recordidlist + + cstr(recordid) 

end if 

elseif recordid > then ' don't add comma first time 
recordidlist - cstr(recordid) 

end if 

next'i 
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SessionC*RECORDIDLIST") = recordidlisl 
sessionf page") = 1 

SessionCtoomanyrecords") = toomanyrecords 

if recordidlist > " " then response. redirect(''ms_editkey.asp?pg== I") 

end if 

'Post/Delete Group Edit Info 

if Request. formfGroupEdit") > " " or request.formCdeletebutton'*) > " then 

•response. write ("Hello World!@!IH!!") 
response. writeC&nfasp;**) 
'init obj 

set PGE = new objPostGroupEdit 
PGEinit 

'Get records 

recordcount Request. fonn("p_RecCount") 

'response. writeC'<br>There are " & cstr{recordcount) & " records <br>") 

for i = I to recordcount 

recordid = Request. form(''P_check'' & cstr(i)) 
if recordid > " " then PGE.AddRecord recordid 
*response.write(recordid & ''<br>'') 

next 'i 

'Set Stored Procedure info 
PGE.ClassType = "Group Edit" 
PGE.SP •'sp_edit_key'' 
PGE,TabieName = ''keys'' 

if Rcquest.form("GroupEdit") > " " then PGE.IsDeiete = 0 

if rcquesLformCdeietcbutton") > " " then PGE.isDeicte = I 

PGE.AddParam "p_key_descr'' 

PGE.AddParam "mail_qty_override" 

PGE.AddParam '•newstand_sale" 

PGE.AddParam •'newstand_sale_marker" 

PGE.AddParam "Ust_cat_name*' 

PGE.AddParam ''list_name*' 

PGE.AddParam ''iist_segment_name*' 

PGE.AddParam "Iist_cost_actuaI_cpm" 

PGE.AddParam "iist_cost_faasis" 

PGE,AddParam "Hst_cost_factor'' 

PGE.AddParam *'merge_purge_qty" 

PGE.AddParam *'e_set_name" 

PGE.AddParam "r_set_name" 

PGE.AddParam ''panel_pkg'' 

PGE.AddParam "subtotal_flag" 

PGE.AddParam ''optional_efifortJd" 

PGE.AddParam "recjd" 

PGE.AddParam -IsDelete" 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = ''sp_edit_key'* 

objCMD.CommandType ^ adCmdStoredProc 

objCMD.parameters.refresh 

PGEPostGroupEditsBySP 

end if 
%> 

<html> 
<head> 

<META HTTP-EQUrV-^Expires" CONTENT="Mon, 01 Jan 1990 12:00:00 GMT"> 
<meta http-equiv=*'pragma" content=''no-cache"> 
<meta http-equiv="cache-control" contcnt=''no-cache''> 
<title>IMT Network</title> 
<% LorieScripts %> 



</head> 

<body bgcolor=''#99CCFF" vlink="O00O0O" link="003366" 
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onLx)ad="N^j)rdoadimages(\7graphics/edittablerol222.gif;#945899226033*);MMj5reioad 

•#945899269583T> 

<br><br> 

<form method^"post" action="<% Response. Write L_THfS_FILE %>" name=foiTn! id=formI> 
<input type=^HIDDEN'' name-" ACTION" VALUE=-PANEL"> 
<table width=*'2500" ceUpadding=''2"> 
<% prevSelections (6) %> 



<tr vaIign=*'top''> 

<tdxforit size-"-4* face^^Verdana, Arial, Helvetica, sans-serir> 

Change Panel<br> 

</font> 

<% 

strSQL - -select PANEL_NAME &om PANELS where " 
& " grp_name = & SessionfGRP NAME") & 
& " and PRODUCT JD=*" & SessionCPRODUCTJD") & , 
& " and src^cat_,naine = "* & SessionCSRC_CAT_NAME") & 
& " and source^ame = & Session(''SOURCE_NAME") & 
& * and Camp_name = & SessionCCAMP^NAME") & 



objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQuoyListBox objRST, "cmb",3, "SELECT PANEL". SessionCPANEL_NAME-) 
objRST.close 
%> 

<input type="lMAGE" nanie^"go" value^"go" src=-.7graphics/gol222,gir 
WIDTH="33" HEIGHT-" 16" B0RDER=O> 

</td> 
</tr> 
</form> 
</table> 

<% 

'Group Edit info 

set GE ~ new objGroupEdit 
GE.init 

GE. action = "adminkeysrightasp" 
GE.RowCount= 1 

'Group Edit Show/Hide button 

if Requestfonn("SHOWGROUPE0IT") > " " then 

%> <form method=''post" action-" <%Rcsponse. Write l_this_file %>* id="hidegcfonn'' 

name="hidegeform"> 

<table> 

<tr> 

<td width='"20">&nbsp</td> 
<tdxinput type="submit" value="Hidc Group Edit" 
name^^HIDEGROUPEDlT" action="form.submit''x/td> 

</tr> 

</table> 
</fonn> 

<% 

GE.Show==True 

else 

%> <form method="post" action-" <%Response. Write i_this_filc %>" id="showgeform" 
name="showgefonn"> 

<table> 

<tr> 

<td width=''20">&nbsp</td> 
<tdxinput type=**submit" value="Show Group Edit" 
name="SHOWGROUPEDIT"action="form.submit"x/td> 

</tr> 

</tabIe> 
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</form> 

<br> <form method=*'POST" action-"<%=action%>'' name-"Group_Eciit_Forni" cellpaddtng="3" 

cellspacing ="3"> 

<% 

GE.Show = False 

end if 

'Key 

'index = GE^Addltem 

'GEfieldType index, "NOTAPARAMETER" 
•GE.ColumnHeader index, "KEY" 

'Key Description 
index ^ GE.AddItem 
GEfieldType index, "TEXT" 
GE.ColumnHeader index, "KEY DESCRIPTION" 

•Mail Qty 

'index = GE.AddItem 
'GEfieldType index, "LABEL" 
'GE.Co!umnHcadcr index, "MAIL QTY" 

'Mail Qty OverRide / Draw 
index - GE Addltem 
GEfieldtype index, TEXT" 

GE.ColumnHeader index, "MAIL QTY OVERRIDE / DRAW 

'Newsstand Sale 

index = GE-Addltem 

GE.fieidtype index, "TEXT* 

GE,ColumnHeadcr index, 'T^WSSTAND SALE" 

'Response Based on Sale or Draw (Newstand Sale Marker) 
index - GE.AddItem 
GE.fieIdtype index, "SELECTLOV 

GEColumnHeader index, "RESPONSE BASED ON SALE (Y), DRAW (N)" 
GE.strSQL index, "N,Y" 

'List Category 
index = GE.AddItem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "LIST CATEGORY" 

GE.strSQL index, "SELECT {ist_cat__name from list^cats where product Jd = " & Session{"PRODUCTJD") & 
" order by list_cai_name'' 

•List Name 

index - GE.AddItem 

GETieldtype index, "SELECT" 

GE,ColumnHeader index, "LIST NAME" 

GE.strSQL index, "SELECT iist_^namc from list^names where productjd ^ " & ScssionCPRODUCTJD") & " 

order by list_name" 

'List Segment 
index = GE.AddItem 
GEfieidtype index, "SELECT" 
GE.ColumnHcader index, "LIST SEGMENT" 

GE.strSQL index, "SELECT list_segment_name from list^segments where product_id - " 
Session("PRODUCTJD") & " order by hst_segment_name" 

'ListCPM 

index = GE. Addltem 
GEfieldType index, "TEXT" 
GE.ColumnHeader index, "LIST CPM" 

'List Cost Basis 
index = GE.AddItem 
GE.fieldType index, "SELECTLOV" 
GE.ColumnHeader index, "LIST COST BASIS" 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 85 of 200 




IMT Subscription Marketing Reporting System 



GE.strSQL index, "Mail Qty, Merge Purge Qty" 

'List Cost Factor 
index = GE.Addltem 
GE.fie!dType index, "TEXT" 
GE.ColumnHeader index, "LIST COST FACTOR" 

'Merge Purge Qty 

index - GE- Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "MERGE PURGE QTY" 

'Expense Set 
index = GE.Addltem 
GETieldtype index, "SELECT" 
GECoIumnHeader index, "EXPENSE SET" 

GE.strSQL index, "SELECT e_set_namc from expense_sets where product Jd = " & Session("PRODUCT_ID") 
& " order by e_set_name" 

'Revenue Set 
index = GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "REVENUE SET" 

GE.strSQL index, "SELECT r_set_name from revenue_sets where product Jd = " & SessionCPRODUCTJD") 
& " order by r_set_name" 

'Package 

index = GEAddItem 
GE.fieidtype index, "SELECT" 
GECoIumnHeader index, "PACKAGE" 

GEstrSQL index. "SELECT pack^e_nanie from prod_panel jjackage where productjd " & 
SessionCPRODUCTJD") & " order by package_name" 

'Subtotal Flag 
index = GE.Addltem 
GEfieldtype index, "SELECTLOV" 
GECoIumnHeader index, "SUBTOTAL FLAG" 
GEstrSQL index, "True.False" 

'Optional Effort ID 

index = GE.Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "OPTIONAL EFFORT ID" 

'Page 

GEMS_Page-l 

'if not(RecCount>=I) then RecCount= 1 
'GEMS_Table = "panels" 

'GEMS WhereCIause - "where grp_name = '" & Session("GRP_NAME") & "*" _ 

& " and PRODUCT ID=" & SessionCPRODUCTJD") & "" _ 
& " and src,cat_nai^e - '" & Session("SRC_CAT_NAME") & "" 

& " and source_name = '" & SessionCSOURCE_NAME") & "*" 

& " and Camp_name = *" & SessionCCAMP JIAME") & "'" 
•GE.MS_OrderBy = " Order by SOURCE J^AME " 

'Display Table 

GEMS_Page-l 

GEDisplayEditTabie 



<table width="2500" cenpadding="2"> 
<tr valign="top"> 
<tdxBR> 
</td> 
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</tr> 

<tr vaiign="top"> 
<td coIspan^M" align="left*'> 
<%keysTabIe%> 
</td> 
</tr> 
</tabIe> 
</fonn> 
</body> 
</html> 
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adminsearch.asp 

<%@ Language=VBScript %> 

<i- # include file="„/support/global_con$tants.asp** -> 
<f- # include file="„/support/dbConnection.asp" -> 
<f- # include file==" Jsupport/adoUtils.asp" -> 
<!- #include fde="„/support/srcTab.asp*' -> 
<!- ^include file="../support/iavaScripts.asp" -> 
<>- #include file=''../support/navigation.asp*' -> 

<% JSIm^eFunctions %> 

<HTML> 
<HEAD> 

<% DisplayIMTFrameset%> 

<META NAME=="GENERATOR'' Content-''Microsoft Visual Studio 6.0"> 

<nTLE> IMT Admin Search </title> 

</HEAD> 

<BODY marginwidth=0 leftmargin=0 marginheight-O topmargin=0 bgcolor='*#99CCFF'' vlink="#003366" imk="#003366''> 
<% LorieScripts %> 

<form method="posr action^" AdminSearch.asp" id=forml name=forml> 
<% 

• Response. Write SESSIONCPID_^PHRASE") & '•<BR>'' 

• our local variables 

p_sel = RequestFormCP_SEL'') 
'p_grp = Request.Formfp jgrp**) 
pjitle - Request.FormCP„TlTLE-) 
p_src_cat = Request,FormC'P_SCR_CAT'') 
p_source = Request.FormrP_SOURCE'*) 
p_canip = Request. Form(''P_CAMP") 
p_Panel = Request. FormCP_PANEL") 
'if pjgrp < then 

• p^--/o" 
'end if 

if pjitle < " " or pjitle= •'O" then 
pjitle = 
end if 

if p_src_cat < - " or p_src_cat = "0" then 
p_src_cat = 
end if 

if p_Source < " " or p_Source = "0" then 
p_Source^"%'' 
end if 

if p_camp < " " then 
p_camp = 
end if 

if p_panel < " " then 

p j)anel = 
end if 

if (qu^^"") then 

qu = *%" 

end if 
%> 

<table> 

<tr> <tr valign=*'top'*> 

<tdxtabie> 
<tr> 

<td bgcolor=**003366- height=''20'' width^-HO" align="center''> 
<div align-*'center"> 

<font face="Verdana, Ariai, Helvetica, sans-serif color=''#FFFFFF"> 
<bxfont size-''I"> 
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TITLE 

</fontx/b></fontx/div></td> 

<TD align="LEFT"> 
<% 

strSQL = "select DISTINCT TITLE_NAME from CORPJNFO WHERE & SessionCPID_PHRASE") 
•Response. Write "Pid phrase " & SessionCPID_PHRASE") 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_TITLE",6, "SELECT TITLE", pjitle 

objRST.close 

%> 
</id> 
</tr> 
<tr> 

<td bgcolop="003366" height="20" width="140" align="center"> 
<div align"''center'*> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF''> 

<bxfont si2e=T> 
SOURCE CATEGORY 
</fontx/bx/fontx/div></td> 
<TD a!ign="LEFT"> 

<% 

StrSQL = '^select DISTINCT SRC_CAT_NAME from SRC_CATEGORY" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowQueryListBox objRST, "P_SCR_CAr ,6, "SELECT SRC CAT". p_src_cat 

objRSTxIose 
%> 

</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width^"l40" align="center''> 
<div align-"center"> 

<font face^"Verdana, Arial, Helvetica, sans-serir coIor="#FFFFFF"> 
<bxfont si2e==" r> 

SOURCE 

</fonix/bx/fontx/divx;/td> 

<Tt> aHgn-="LEFr> 

<% 

StrSQL = "select DISTINCT SOURCE_NAME from SOURCE" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowQueryListBox objRST, "P_S0URCE",6, "SELECT SOURCE", p_Source 

objRSTxlose 
%> 
</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div aUgn="center"> 

<fontface=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size=="l"> 
CAMPAIGN 

</fontx/bx/fontx/divx/td> 

<rD aIign="LEFT"xinput type^"TEXT" name^"P_CAMP" value =*<% Response. Write p__camp %>' x/td> 

</tr> 

<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div align-"center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="r> 

PANEL 

</fontx^x/fontX/divx/td> 

<rTD altgn="LEFrxinput type-"TEXT" name-"P_PANEL" value =*<% Response. Write p_panel %>' x/td> 

</tr> 

</table> 

</td> 
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</trX/table> 
<br> 

<font face=" Verdana, Ariai, Helvetica, sans-serif size=="-4"> 

Break on</font> 

<br> 

<seiect name="P_SEL-> 
<% 

dim var(6) 



var(lKSOURCE NAME" 
var(2KCAMPAlGN'' 
var(3)="PANEr 
for to 3 
if {cint(p_sel)=i) then %> 

<option value='<% 

Response. Write i %>' seiected> 

<% 

Response. Write var(i) 
%> 

</option> 
<% 
elsc%> 
<option va!ue=*<% 
Response.Write i %>*> 
<% 

Response- Write var(i) 
%> 

</option> 
<% 
end if 
next 
%> 
</select> 
<p> 

<input type='IMAGP Value-"UPDATE'* Name='*UPDATE- 
src=".7graphics/submitl222.gir width=''54" height^'ie" bordei-="0'*> 

</p> 

</form> 
<% 

ifp_sel>*'*'then 

SearchResult p__panel, p_camp, p_source, p_src_cat, pjitle, p_sel 

end if 

^Response, Write "query = - & p_sel & " " 
^Response, Write TITLE = " & pjitle & " 
•Response. Write "SRC CAT - " & p_src_cat & ", * 
^Response. Write "TITLE = " & p_source & ", " 
^Response. Write "<BR>CAMP= " & p_camp & ", " 
•Response. Write "PANEL = " & p_panei & " " 

' if seI="SOURCE CATEGORY" then 

•SrcCatSearchResult p_src_cat, p JitJe, p_grp 
'elseif scl -"SOURCE NAME" then 

'SourceSearchResult p_source, p_src_cat, p_title, p_grp 

'elseif se!="CAMPAIGN" then 

•CampSearchResult p_camp, p_source, p_src_cat, pjitie, p_grp 
•eIscifsel-"PANEL"then 

'PanelSearchResult p _panel ,p_camp, p_source, p_src_cat, pjitle, p_grp 



%> 



<BODY> 
</HTML> 
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adminsea rcfa2.asp 

<%@ Language^ VBScript %> 

<[- # include fiie=**,7support/globai_constants.asp" -> 
<!- #include file=*'.7support/dbConnection.asp" -> 
<!- #include file-*'../support/adoUtiIs.asp'* ~> 
<1- #include fiIe=''.7support/srcTab.asp" -> 

<HTN4L> 
<HEAD> 

<METANAME=''GENERATOR^ Content=*'Microsoft Visual Studio 6.0"> 

<nTLE> IMT Admin SEARCH 2</title> 

</H£AD> 

<BODY> 

<form method^^post" action="" id=formI name=formi> 

<% ' our local variables 

sel = Request-FormfSEL") 

PJgrp = RequestFormCpjgrp") 

pjitle = RequestFormCpJitle'*) 

p_src_cat = RequestForm(**p_src_caf) 

p_source = RequestFonn(''p_source*') 

p_camp RequestFormCp^camp*') 

p_Panel - Request Fonn("p_paner) 
if p_grp < " " then 

p^ = "%^ 
end if 

if pjitle <•"* then 
p Jitle = 
end if 

if p_src_cat< " " then 
p_src_cat = 
end if 

if p_Sourcc < * " then 
p_Sourcc ~ 
end if 

if p_camp < " " then 
p_camp = 
end if 

if p_panci < " then 

p_panel = "Vo* 
end if 

if (qu^*"*) then 

qu^-yo" 

end if 
%> 

<table> 

<trxtd>Product Group</td> 

<tdxinput type^^TEXT* name=''pjgrp'* value -'<% Response. Write p_OT %>* x/td> 
</tr> 

<trxtd>Tttle Name</td> 

<tdxinput type=''TEXT" name=''pjitle'' value ='<% Response. Write pjitle %>* x/td> 
</tr> 

<trxtd> Source Category </td> 

<tdxinput type=TEXr' name=''p_src_cat" value - <% Response. Write p_src_cat %>' x/td> 
</tr> 

<trxtd> Source </td> 

<tdxinput type^^TEXr* name=''p_source** value - <% Response.Write pjource %>' x/td> 
</tr> 

<trxtd> Campaign </td> 

<tdxinpul type^^TEXT" name=*'p_camp" value =*<% Response.Write pjamp %>' x/td> 
</tr> 

<trxtd> Pane! </td> 

<tdxinput type=''TEXT" name==**p_paner value ='<% Response.Write pj)anel %>' x/td> 
</tr> 
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</tabIe> 

<br>Break on<br> 
<select name="SEL"> 

<% 

dim var(6) 

var(0) - "PRODUCT GROUP" 

var{l)="TrrLENAME" 

var<2)="SOURCE CATEGORY'' 

var(3)=''S0URCE NAME" 

var(4KCAMPAlGN" 

var(5)=TANEL'' 

for i=0 to 5 

if (sel=var(i)) then 
Response. Write "<option seiected>" & var(i) & "</option>'' 

else 

Response.Write '•<option>" & var(i) & "</option>*' 
end if 
next 
%> 
<se\ccv> 
<br> 

<input type="submit** id=submUI name=submitl> 
<br> 

</form> 
<% 



Response.Write "qu = " & p_grp & " 
Response.Write p_titie & - 
Response.Write p_src_cat & " 
Response.Write p_source & " 
Response.Write p_camp & " 
Response.Write p_panel & ** " 
Response.Write sei= " & Request.FormCSEL*') 
if sel - "PRODUCT GROUP" then 
GrpSearchResult p^grp 
elseif sel ^ "TITLE NAME" then 

ProductSearchResult p_title, p_^grp 
elseif seH"SOURCE CATEGORY" then 

SrcCatSearchResult p src cat, p title, p,^rp 
eIseifsel="SOURCE NAME" then * 

SourceSearchResuit p source, p src^cat, p_title, pjgrp 
elseif seN"CAMPAIGN" then 

CampSearchResult p_camp, p_source, p_src_cat, p_title, p^grp 
elseif sel="PANEL" then 

PanelSearchRcsult p_panel ,p_camp, p_source, p_src_cat, p_title, pjgrp 

end if 

%> 

</BODY> 
</HTML> 
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aUsctuptafas.asp 

<%@ Language- VBScript %> 
<!-#include f]]e=^''.7support/giobal_constants.asp" --> 
<!-# include file=''.7support/dbConnection.asp*' -> 
<!— ^include fjle=''.isupport/adoUti]s.asp*' -> 
<!-#include file^^Jsupport/srcTab^asp" -> 
<!-#include fi]e=*'.7support/navigation.asp" -> 

<% JSImageFunctions %> 

<% 

l_this_file ^"aJISetuptabs.asp*' 
SessionCreferjsage") = "allSetupTabs.asp" 
Session("refer_TitIe'') = "Set up Table Selection Screen" 

if {Request.FormCsetupTab")o "0" _ 

and Request.FonnCsetupTab'') > " ") then 

Response.Redirect(RequestForm(''setupTab*')) 
end if 

mystrSQL ^ "select accessjevel from gateway.dbo.usr_access where login = & SessionCU") & & " and product Jd = 
0" & SessionfProductJd") 

objRST.open mystrSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ifnotobjRST.eofthen 

SessionrUSR_ACCESS") = objRST(O) 

else 

SessionCUSR_ACCESS") - "None" 

end if 

objRST.close 

checkSessionVars(2) 

select case Session("USR_ACCESS**) 
case "User" 

CanUscAdmin = "false" 
case "Manager" 

CanUseAdmin = "True** 
case "Supervisor" 

CanUseAdmin - "True" 

case else 

CanUseAdmin ~ "false" 

end select 

if CanUseAdmin = "false" then Response. Redirect "NoSetupRights.asp" 

%> 

<HTML> 
<HEAD> 

<% DisplaylMTFrameset %> 

<META NAME="GENERATOR" Content-"Microsoft Visual Studio 6.0"> 
</HEAD> 

<BODY marginwidth=0 leftmargin=0 marginheight=0 topmargin=0 bgcoIor="#99CCFF" vlink="#003366" link="#003366"> 
<form method="post" action="<%Response. Write l_this_filc %>** id="form2" name="form2"> 
<% setupTableListBox I_this_{iie %> 

</form> 

<P> </P> 

</BODY> 
</HTML> 
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avaii.asp 

<%@ Language=VBScript %> 

<!— ^include file=''-ysupport/globaI_constants.asp'' — > 
<!- ^include fIIe=^7suppo^t/dbConnection,asp" -> 
<!- # include file=",ysuppOTt/adoUtiis,asp" -> 
<f- # include fiIe=^".ysupport/srcTab-asp" -> 
<!-^/ include flIe=^7suppo^t/keys.asp" -> 
<!- # include fiIe=",-/support/navigation.asp" -> 

<% JSImageFunctions %> 

<% 

!_this_file = "avaiLasp" 

if not ( sessionCProductJd") > " ) then 
Response.Redirect("admin2a.asp?FR=" & I_this_file ) 
end if 
%> 

<html> 
<head> 

<title>IMT Network</titie> 
</head> 



<% 

' LAvailCount = RequestFonn("AVAILCOUNT'*) 

' Response. Write "availCount = " & l_avaiIcount & ''<br>" 

'on error resume next 

dim l_query 
dim ij)os(lO) 
dim i_display 

l_display = Request Form("D!S PLAY") 
l_query - " select folI_promo_key MY_KEY, RECJD - 
& *• from avail_keys " _ 

& " where Product_id = " & session ("PRODUCTJO") 



l_query = " select full_promo_key MY^KEY, RECJD " _ 
& " from avail_keys " _ 

& ^ where Productjd = " & sessionCPRODUCTJD") 
•& " and source Jdentifier = & sessionC'SRC_INDICATOR'*) & " 
ORderby^" Order by" 

fori=ltolO 

I_pos(i) = RequestformCKeyPosition" & i) 
ifl_pos(i)>''"thcn 
*SQL 

I_query = Lqueiy & " and POSFFION" & i 
& RequestFormCKeyPosition" & i) & 

*Order by clause 

runMe = true 

end if 

OrderBy = OrderBy & "* Position* & i & " 

next 



if (Request^FormfrumMe") = •*r ) then 
runMe = true 
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end if 

Orderby = ORderby & " FuI]_Promo_key " 

'if(l_pos(l)<'*")then 

'l_pos(l) = Session("SRC_IND[CATOR*') 
l_query - l_query & " and POSITION P _ 
& l_pos(l)&"^" 

end if 

l_query - l_query & *"* & OrderBy 



<% if Request("add")=M" then %> 

<body bgcoior=''#99CCFF" vlink^'OOOOOO" Unk-*'003366" 
marginwidth===''0" marginheight^^O" ieftmargin-'O** topmargin="0" 
onLoad="refreshO;**> 

<% DisplaylMTFrameset %> 
<%else%> 

<body bgco!or-**#99CCFF' viink^^OOOOOO" iink^^OOBSee" 
marginwidth-^O** marginheight=**0" leftmargin-^O" topmargin=''0" > 



<% DisplaylMTFrameset %> 

<% 
end if 
%> 



<table width="185" cclipadding=''2''> 
<tr> 

<td colspan-^S" height^^Sg" widths" 1 52*'> 
<% keySearchBoxes l_pos,I_this_file, false %> 

<tr valign=*'top*' align='*'right''> 
<td colspan-*'4'"> 

<div aiign="ieft"xbr> 

</div> 

<div align='*Ieft"x/div> 
<p> 

</form> 

<form method=''post*' action=''<% Response. Write L_THIS_FILE %>" name^^myForm" id=fonnl> 

<%fori=ltolO%> 
<input type^^HIDDEN" 

name="KeyPosition<% Response, Write i %>" 
value="<% Response.write I_pos(i) %>"> 
<% next %> 
</p> 
</td> 
</tr> 

<tr> 

<tdwidth-"I62"> 

<font face='' Verdana, Arial, Helvetica, sans-serif color^*'#FFFFFF"> 
<fontsize=T color="#000000"> 
Product: <bx% 

Response.write SessionCTrrLE_NAME") & & SessionCPRODUCT,©") 
%></b> 
</fontXfont> </td> 
</tr> 
<tr> 
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<td width=''l62''> 

<font face=''Verdana, Anal, Helvetica, sans-serir coIor=''#FFFFFF"> 
<font si2e="r color=''#000000"> 

<A HREF-''/ImtAdmin/admin2a.asp?Fr=<%Response. Write l_this_file %>"> 
Change Product Id </a> 
</b> 

</fontx/font> </td> 
</tr> 
<tr valign=**top"> 
<td colspan=''4'* aiign=''left*'> <br> 

<tnputtype-'*HIDDEN'' name-'DISPLAY" va1ue="r> 

<% 

'Response. Write l_query & ''<BR>'' 
ifl_dispIay = Tthen 

AvailKeysTable(l_query) 
end if %> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</htmI> 
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drill.asp 

<%@ Language-VBScript %> 

<!-#incIude fiIe=".,/support/global_constants.asp'* -> 

<!-#inciude file-^.ysupport/dbConnection.asp" -> 

<!- ^include file^^.ysupport/adoUuls.asp" -> 

<!-#include fiie=".ysupport/driIILib.asp'' ~> 

<!- # include file=''../support/navigation.asp" -> 

<% JSImageFunctions %> 

<HTML> 
<HEAD> 

<METANAME==''GEKERATOR'' Content="Microsoft Visual Studio 6.0"> 
</HEAD> 

<BODY marginwidth=0 ieftmargin=0 marginheight-0 topmargin==0 bgcolor-"#99CCFF'' viink=''#003366'' Unk="#003366"> 



<% DisplaylMTFrameset %> 

<font face==" Verdana, Arial, Helvetica, sans-serif size="-4''> 
<h3>Fast Find</h3> 
<%'=Session(''PID_PHRASE") %> 

<form method^^post" action="drilLasp#cur id="forTn2" nanie='*form2"> 

<% printList %> 

</form> 

</FONT> 

</BODY> 

</HTML> 
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drUlfaounce.asp 

<%@ Language^VBScript %> 

<i— ^include file=''.7support/gJobal_constants asp" --> 

<!-- # include file=''.7support/dbConnection.asp" -> 

<!- ^include file=''.7supporT/adoUti!s-asp" -> 

<!- #include file=''../support/driIlLib.asp" -> 

<% 

Mevel - RequestQueryString("Y") 
l_rec_id = RequestQueryStringCZ") 
l_option - requcstQueryStringCO") 

if i_Ievel = 1 then 
mySq! = "select grp_name _ 

& " from v_grp_names " _ 
& " where min_rec_id = " & l_recjd 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ifnotObjRST.EOF then 

Session("GRP_^NAME'') = objRST.Fields(O) 

end if 

ObjRST.close 

elseifljevel = 2then 

mySql = "select grp_name, productjd, title_name " _ 
& " from corp_info " _ 
& •* where rec_id & i_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

SessionfGRP NAME") = objRST.Fields(0) 
SessionrPRODUCTJD") - objRST.Fields(I) 
SessionfTITLE.NAME") = objRST.FieIds(2) 

end if 

ObjRST.close 

elseif Mevei -3 then 

mySql = "select grp_name, productjd, tit!e_name, SRC_CAT_NAME " _ 
& " from SRC_CATEGORY " _ 
& " where recjd = " & l_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fieids(O) 
SessionCPRODUCTJD*') = objRST.Fieids(l) 
Session("TITLE_NAME") = objRST.Fields(2) 
SessionCSRC_CAT_NAME") - objRST.Fields(3) 

. end if 

ObjRST.close 

elseif Mevel = 4 then 

mySqi = "select grp_name, product_id, titie^name, SRC_CAT_NAME, Source_name, SRC_INDICATOR "_ 
& "from Source " _ 

& " where rec_id - " & l_rec_id 

ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") - objRST.Fields(O) 
SessionCPRODUCTJD") = objRST.Fields(l) 
Session("TrrLE_NAME") - objRST.Fields(2) 
Session("SRC_CAT_NAME") = objRST.FieIds(3) 
Session("SOURCE_NAME") = objRST.Fields(4) 
Session("SRC_INDICATOR") = objRST.Fieids(5) 

end if 

ObjRST.close 
elseif IJeve! = 5 then 

mySql "select grp_name, productjd, title_name, SRC_CAT_NAME, Source_name, SRC_INDICATOR, CAMP_name 
& "from Campaigns " _ 

& " where rec id = " & 1 rec id 
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ObjRST.open mySqi, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fje!ds(0) 
SessionCPRODUCTJD") - objRST.Fields(i) 
SessionCTITLE.NAME") - objRST.Fields(2) 
SessionCSRC_CAT„NAME") = objRST.Fields(3) 
SessionCSOURCE_NAME") = objRST Jieids{4) 
SessionCSRC_INDICATOR") ^ objRST.Fields(5) 
SessionCCAMP_NAME") = objRST Fields(6) 

end if 

ObjRST.cIose 
elseif ljevel = 6then 

mySql = "select grp_name, productjd, titie_name, SRC_CAT_NAME, Source_name, SRC_JND1CAT0R, CAN^P_name, 
Panel_name 

& "from Panels " _ 

& " where rec_id = " & Lrec_td 

ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ifnotObjRST.EOF then 

SessionCGRP.NAME") = objRST. Fields(O) 
SessionfPRODUCTJD") = objRST.Fields(l) 
SessionCTITLE_NAME'') - objRST.Fields(2) 
SessionCSRC_CAT_NAME'') - objRST.FieIds(3) 
SessionCSOURCE NAME") = objRST.FieIds(4) 
SessionCSRC_INDICATOR'') = objRST.Fields(5) 
SessionCCAMP„NAME'') = objRST.Fields(6) 
SessionC'PANEL_NAME'') - objRST Jie[ds(7) 

end if 

ObjRST.cIose 

else 
isBad = true 
end if 



if not isBad then 
ifLoption^^EDIT** then 
if ijevel = 4 then 

Response.Redirect "editSource.asp?Z^" & l_recjd 
elseif level = 5 then 

Response. Redirect *'editCamp.asp?Z-' & i_recjd 
elseif IJevel = 6 then 

Response. Redirect "editPanel.asp?Z=" & Lrecjd 

end if 
else 

ifljevel==6then 

" Response.RcdirectCAdminKeys.htm*') 
else 

Rcsponse.Redirect("admin'' & (IJevel "a.asp") 

end if 
end if 



end if 

%> 
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edit autosetup.asp 

<%@ Language= VBScript %> 
<!- # include rile=*'../support/global_constants.asp'' -> 
<!- # include fiie=*'„/support/dbConnection.asp" -> 
<!-# include file=''../support/adoUtils.asp'' -> 
<!- # include file='',./support/srcTab.asp'' -> 

<% 

If RequestFormCUPDATE.x") o then 

l_button = •'Update" 
elself RequestformCDELETE.x") o then 

l_button = •'Delete" 
end if 

Lrec Jd - RequestQueryStringCZ") 

'Response. Write l_rec_id 

If (IsNumeric( l_rec_id) ) then 

if l_button = "Update" or l_button = "Delete" then 

I_action = true 

'l_src_cat_name = RequestFormCP_SRC_CAT_NAME") 
l_src_ind = RequestForm("P_SRC_IND") 
I_source = Request Fonn("P_SOURCE") 

'response.write(l_source) 

objRST.open "select src_cat_name from source where source_name = '" & l__source & "'", strSQLOLEDB, adOpenStatic, 
adLockOptimistic 

if not objRST.eof then l_src_cat_namc = objRST(0) else l_src_cat_name = "UNNASSIGNED" 
objRSTxIose 

if Lsrc_cat_name "UNNASSIGNED" then l_source = "UNNASSIGNED" 
'res ponse.wri te(l_src_cat_namc) 

I_valid_from = RequestFonnrP_VAUD_FROM") 
1 vaIid_to = Request.Form("P_VALID_TO") 

'response.write (l_vaiid_to & " < f}dksai;fjdksl;a jfkdljas fkdl;saj fkd fdjksal; fjdksal;g dk sl;fasjl; ") 

l_setup_mask = RequestForm{"P_SETUP_MASK") 

'response.write(!_setup_mask) 

l_e_set_name = Request.Form("P_E_SET_NAME") 

if l_e_set_name = "0" then Le_set_name = null 

IJogtn - SessionfU") 

objCMD.AcliveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parametcrs.Refresh 
objCMD.Parameters(I).Value = l_src_cat_name 
objCMD.Parameters(2). Value = !_srcjnd 
objCMD.Parameters(3). Value - I_source 
objCMD.Parameters(4). Value = i_valid_from 

objCMD.Parametcrs(5). value = I_valid_to 

objCMD.Parameters(6).vaiue = i_setup_mask 

objCMD.Parameters(7), value = l_e_set_name 

objCMD.Parameter3(8), value = IJogin 

objCMD.Parameters(9).value cint(l_recjd) 
if l_button = "Delete" then objCMD,Parameters(10). Value = I else objCMD.Parameters(!0). Value = 0 
Set TempNonSessionVar = objCMD.ExecuteO 
Response. Redirect "tabaulosetup.asp" 
l_action = true 
else 
l_action = false 

strSQL - "select src_cat_name, srcjndicator, source_name, valid_from_date, valid_to_date, setup_mask, c_set_name " & _ 
" from autosetup_scheme " & _ 

" where rec_id = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If not objRST.EOF then 

l_src_cat_name = ObjRST("src_cat_name") 
l_src_ind = ObjRSTfsrcJndicator") 
l_sourcc = ObjRST{"source_name") 
l_valid_from = ObjRST("valid_from_date") 
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l_valid_to = ObjRSTC^validJo^date") 
l_setup_mask = ObjRST("setup_mask") 
i_e_set_name - ObjRST("e_set_name") 

end if 

ObjRST.ciose 

end if 
end if 



%> 
<html> 
<head> 

<title>edit_autosetup.asp</title> 
</head> 

<body bgcolor-''^99CCFF" vlink="0OOOO0" iink="003366"> 

<form method=''posf action="edit_autosetup.asp?Z=<%Response. Write Lrecjd %> " id==forml name==forml> 
<tabie width=-640'' border="0" cellpadding="2"> 
<% prevSelections(3) %> 



<trvalign="top''> 

<td align=*'left" width=*'640*' colspan=*3"ximgsrc=".ygraphics/cditl222.gir width=''27" height="14"x/td> 
</tr> 

<tr valign="top''> 

<td align=''left'' width=''640*' colspan="3"> 
<table width^^SOO** border=="0** censpacing^^S" cenpadding^"2''> 
<tr valign=''top''> 
<ld height="25'' align="left"> 
<div aiign="left"x/div> 
</td> 

<td height-"25'' a!ign="left''> 

<input type='IMAGE' Vaiue=''UPDATE" Name=''UPDATE'' 
src='*../graphics/submitl222.gir width==**54" height^^ie" border=**0'*> 
<imgsrc=''.ygraphics/biankl222.gir width='*20** height=''l6'' bordep=0> 
<input type='IMAGE' Valuc='' DELETE" Name^" DELETE" 
src=",Ygraphics/deIeteI222.gir width-"53" height='*!6" border=0> 
<%' <inputtype='IMAGE' Value^^-DELETE" Name="DELETE*^ 

'src=".7graphics/deletel222.gir width="53*' height^'ie** border=0> %> 
<font face^" Verdana, Ariai, Helvetica, sans-serir size='*-4*'> 
<a href=''tabautosetup.asp''>Retum to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor=*'003366" height="20'' width="140- align='*center"> 
<div align-''center"> 

<font face=-Verdana, Arial, Helvetica, sans-serif color="#FFFFFP'> 
<bxfontsize="I''> 
SOURCE NAME 
</fontx/bx/fontx/div> 
</td> 

<td bgcolor=''#99CCFF'' height="20*' width=''360'' align="left'*> 

<div align=''ieft"xfont face^^Verdana, Arial, Helvetica, sans-serif colof=**#FFFFFF"xbxfont size^T 
coior='*#000000"> 

<%if not l_action then 

strSQL "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, T_S0URCE",6, "SELECT SOURCE", I_source 
ObjRST.ciose 

else 

Response. Write l_source 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
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<tr> 

<td width="140" bgcolor-"* 003366" height=*'20" align=''center"> 
<div aIign="center"><font face==" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"><bxfont size="r'>SOURCE 
INDICATOR </font></bx/font></div> 
</td> 

<td width="360" bgcoior-"#99CCFF" height="20" align="left''> 
<div align-^left^xfont face-" Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF"xb><fontsize="r' 
color-"#000000"> 

<%if not l_action then %> 

<input type-'^TEXT" NAME='P_SRCiIND' 

id-0 value=''<%Response. Write l_src_ind %>" maxlength=''30'' size="6''> 

<%else 

Response, Write l_src_ind 

end if %> 

</fontx/bx/font></div> 

</td> 
</tr> 

<tr> 

<td width-" 140" bgcolor="# 0033 66" height="20*' align=''center"> 

<div aIign="center"xfont face=" Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF''><bxfont size-" r> VALID 

FROM 

</fontx/bx/fontx/div> 

</td> 

<td width="360" bgcoIor="#99CCFF" height-"20'' align="left"> 
<div align-" left^xfont face-"Verdana, Arial, Helvetica, sans-serif color="#FFFFFF'*xbxfont size^T 
coloi="#000000"> 

<%if not l_action then %> 

<input typc^-TEXT" NAME=T_VALID_FROM^ 

id=0 value=''<%Response.Write l_valid_from %>" max!ength="30*' 

size-" 15" width-"30"> 

<% else 

Response. Write l_valid_from 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td width-" 140" bgcolor="# 003366" height-"20" align="center"> 

<div align-" center^xfont face-^Verdana, Aria!, Helvetica, sans-serif 

coloT-"#FFFFFF"xbxfont size-" r> VALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width=''360" bgcolor-"#99CCFF" height-"20" align-"left"> 
<div align-"left"xfont face-" Verdana, Arial, Helvetica, sans-serif 
color-"#FFFFFF"xbxfont size-"!" color-''#000000''> 

<yoif not l_action then %> 

<input typc="TEXT" NAME='P_^VALID_TO' 

id=0 vaIue-"<%Response. Write l_valid_to %>" maxlength=**30" size-" 1 5 "> 

<% else 

Response. Write l_vaIid_to 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td widths" 140" bgcolor-"#003366" height-"20'' align-"center"> 

<div align-" center"xfont face-" Verdana, Arial, Helvetica, sans-serif 

co!or-"#FFFFFF''xbxfont size-" 1 ''>SETUP MASK 

</fontx/bx/font></div> 

</td> 

<td width="360" bgcoIor="#99CCFF" height="20" align="left"> 
<div align-"leff xfont face-" Verdana, Arial, Helvetica, sans-serif 
color-"#FFFFFF"xbxfont size-" r co1ot="#000000"> 

<%if not Laction then %> 

<input type-"TEXT** NAME-'P_SETUP_MASK' 
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id=0 value="<%Response. Write l_setup_mask %>" maxlength="30" 

size="l5"> 

<% else 

Response. Write i_setup_mask 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width="140" bgcolor=''#0033 66" hei^t=''20'* aJign="center"> 

<div aiign="center''xfont face=''Verdana, Anal, Helvetica, sans-serif 

color="#FFFFFF"xbxfont size-" I '•>EXPENSE SET 

</fontx/bx/fontX/div> 

</td> 

<td width-^SeO" bgcolor=''#99CCFF- height=''20" align-^left'^ 
<div align=*'left"xfont face^** Verdana, Arial, Helvetica, sans-serif 
coloi=''i#FFFFFF"xb><font size-T color="#000000"> 

<%if not I_action then 

strSQL - "select e_set_name FROM expens€_sets where product Jd = " & 

SessionCPRODUCTJD") & " order by e_set_name " 

objRSTxpen strSQL, strSQLOLEDB, adOpenStatic, adLockOptimtstic 
shovKJucryListBox objRST, T_E_SET_NAME",6, "SELECT EXPENSE 

SET", l_e_set_name 

objRST.cIose 

else 

Response, Write l_c_set_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
</fonn> 
</body> 
</html> 
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edit campaign def.asp 

<%@ Language=VBScript %> 
<!- #inc[ude fiie-''.7support/globaI_constants.asp*' -> 
<!- # include flle=^7suppo^l/dbConnection.asp" -> 
<!- # include file="../support/adoUtils.asp*' -> 
<!- # include file=''../suppoit/srcTab.asp'' -> 

<% 

If RequestFormCUPDATE.x") o then 

l_button = "Update" 
elself Request. fomiCDELETE.x") o then 

I__button = "Delete" 
end if 

I_rec_id = Request.QueryStringC*Z") 

'Response.Write I_rec_id 

If (IsNumeric( l_rec_id) ) then 

if Lbutton = "Update" or l_button - "Delete" then 

l_action = true 

i_campaign_code = Request Form("P_C AMP AIGN_CODE") 

l_campaign_description = RequesLformCP_CAMPAlGN_DESCRIPTION") 

l_src_cat_naine = Request Form("P_SRC_CAT_NAME") 

if not 0_src_cat_name > " ") then l_src_cat_name = "Undefined" 

l_campaign_date - Request fonn("P_CAMPAlGN_DATE") 

if not(l_campaign_date > " ") then I_campaign_date = null 

l_paneLscheme = RequestfofmCP_PANEL_SCHEME") 

if i_panel_scheme = "0" then I_panel_schcme - "" 

IJogin = Session("U") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText "sp_edit_autosetup_campaign_der 
objCMD.CommandType = adCmdSloredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l). Value = I_campaign__code 
objCMD.Parameters(2).Value = l_canipaign_descnption 
objCMD.Parameters(3).VaIue l_src_cat__name 
objCMD.Parameters(4).Value = I_campaign_date 

objCMD.Parameters(5).VaIue = l_panel_scheme 

objCMD.Parameters(6). value = cint(l_rec_id) 
if I_button = "Delete" then objCMD.Parameters(7) Value = 1 else objCMD.Parameters(7). Value ^ 0 
Set TempNonSessionVar ^ objCMD.ExecuteO 
Response.Redirect "tabautosetup.asp" 
l_action = true 
else 

i_action = false 

strSQL = "select campaign_code, campaign_description, src_cat_name, campaign_date, panel_scheme " & _ 
" from autosetup_campaign_def " & _ 

" where rec Jd - " & i_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic» adLockOptimistic 
If (ObjRST.EOF ^ False) then 

l_campaign_code = objRST("campaign_code") 

l_campaign_description objRST("campaign_description'') 

l_src_cat_name = objRSTC'src_cat__name") 

l_campaign_date ~ objRST("campaign_date") 

l__panel_scheme ^ objRST("pane!_scheme") 

end if 

ObjRST.close 

end if 
end if 



%> 
<html> 
<head> 

<titie>edit_autosetup_campaign_defasp</title> 
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</head> 

<body bgcolop="#99CCFF" viink="000OO0'' link="003366"> 

<form method^^^posf* action=''edit_campaign_def.asp?Z=<%Response- Write l_recjd%> " id=forml naine=fonnI> 
<table width-"640'' border=="0'' cellpadding="2"> 



<tr val!gn=**top"> 

<td align=neft" width="640" colspan=''3"><inig src='../2raphics/editl222.gir width=''27" height="14"x/td> 
</tr> 

<tr valign=*'top*'> 

<td align="ler width=''640" colspan=''3''> 
<table width="500*' border="0" cellspacing=-3" cellpadding="2''> 
<tr valign-"top*'> 
<td height="25'' align="left"> 
<div align=-left- ></div> 
</td> 

<td height='*25" aJign="ler> 

<input type^'IMAGE' Value="UPDATE'' Name=" UPDATE" 
src^". ./graphics/submit 1 222.gir width="54" height="J6*' border=*'0''> 
<img src="../graphics/blankl222.gif' width=''20" height=''I6" bordcr=0> 
<input type='IMAGE' Value^^DELETE" Name=''DELETE" 
src=",ygraphics/deletel222.gir width-"53*' height="I6" border=0> 

<input type-'IMAGE* Value^" DELETE" Name-" DELETE" 
'src=r./graphics/deietel222.gir width="53" hei^t="I6'* border=0> %> 
<font face^'' Verdana, Arial, Helvetica, sans-serif size=''-4'*> 
<a href="tabautosetup.asp">Retum to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgcoior=*'003366*' height=''20" width="140" align=''center"> 
<div align='*center"> 

<font face=-Verdana, Aria), Helvetica, sans-serif color=''#FFFFFF"> 
<b><fontsize="r> 
CAMPAIGN CODE 
</font></b></fontx/div> 
</td> 

<td bgcolor-="#99CCFF" height-"20" width=-360'' align="left"> 
<div align=*'left'*><font face=^"Verdana, Arial, Helvetica, sans-serif co!or^''#FFFFFF"xbxfont size=T 
color^"#000000**> 

<%if not I_action then %> 

<inputtype='TEXT" NAME-'P_CAMPAIGN_.CODE' 

id=0 value=''<%Response. Write l_campaign_code %>" maxlength="30" 

size=''6''> 

<% else 

Response. Write I_canipaign_code 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width-" 140" bgco!or=''#003366'' height="20" aiign="center''> 
<div ai!gn=''center"xfont face-" Verdana, Aria!, Helvetica, sans-serif color="#FFFFFF"xbxfont size-" 1 ">CAMPAfGN 
DESCRIPTION</fontx/bx/fontx/div> 
</td> 

<td width="360*' bgcolor-"#99CCFF'' height-"20" align='*left"> 

<div align=*'1eft"><font face-"Verdana, Arial, Helvetica, sans-serif co[or-"#FFFFFF"xbxfont size="r 
coloi-"#000000''> 

<%if not Inaction then %> 

<input type=''TEXT" N AME-'P_CAMPAIGN_DESCRIPTION' 
id=0 value-"<%Response. Write l_campaign_description %>" 

maxlength="100" size="lOO" 

<% else 

Response. Write l_campaign_description 

end if %> 
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</fontx/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width="140" bgcolor="#003366'' height="20" align=''center"> 
<div align=Vemerxfont face=" Verdana, Arial, Helvetica, sans-serir color==**#FFFFFF"xbxfont size="r>SOURCE 
CATEGORY 

</fontx/bx/fontx/div> 

</td> 

<td width=-360" bgcoloT-"#99CCFF" hei^t=''20" align==''left"> 
<div altgn^-leffxfont face=" Verdana, Aria!, Helvetica, sans-serif color=''#FFFFFF''xbxfont size="r 
colop=''#000000"> 

<%if not i_action then 

*<input type=TEXT" NAME=*P_SRC_CAT_NAME' 

strSQL = "select distinct src_cat_name from source where productjd = " & 

SessionCPRODUCTJD*') & " order by src_cat_name*' 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, •'P_SRC_CAT_NAME^6, "SELECT SOURCE 

CATEGORY**, i_$rc_cat_name 

objRST.close 

•id=0 value=''<%Response, Write l^sourcejdentifier " maxiength="30" 

size=*'6''> 

else 

Response. Write l_src_cat__name 

end if %> 

</fontX/bx/fontx/div> 

</td> 

</tr>' 
<tr> 

<td width="140'' bgcolor==''#003366'' height="20" align="ccnter''> 

<div a!ign=*'ccnter"xfont face=" Verdana, Arial, Helvetica, sans-serir 
coloi=''#FFFFFF''xbxfont size-''I">CAMPAIGN DATE 

</font></bx/fontx/div> 

</td> 

<td width="360'' bgcolor="#99CCFF" height=''20'' align="ieft''> 
<div aIign=*'left"><font face=" Verdana, Arial, Helvetica, sans-serif 
coior="#FFFFFF''><bxfont si2e="r color-"#000000"> 

<%if not i_action then %> 

<input type^TEXT" NAME-'P_CAMPA1GN_DATE' 

id=0 vaIue='*<%Response. Write l_campaign_date %>" maxlength="30'' 

S!ze=^''30*'> 

<% else 

Response.Write i_campaign_date 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width=''140" bgcolor="#003366'' height="20" align='*'center''> 
<div align^^center^xfont face^"Verdana, Arial, Helvetica, sans-serif coIof=''#FFFFFF*'xbxfont size^" r'>PANEL 
SCHEME 

</fontx/bx/fontx/div> 

</td> 

<td width="360'' bgcoior="#99CCFF" height=*'20" align="left"> 

<div aIign="left''xfont face=" Verdana, Arial, Helvetica, sans-serif color^''#FFFFFF''><b><font size^T 
colop=''#000000"> 

<%if not i_action then 

*<input type='^TEXT" NAME-T_SRC_CAT_NAME* 
StrSQL = "select distinct panel_scheme from autosetup_panel_def where 
productjd = " & SessionCPRODUCTJD") & " order by panel_scheme** 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, T_PANEL_SCHEME\6, "SELECT PANEL 

SCHEME", l__panel_scheme 

objRST.close 
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•id=0 vaiue=''<%Response. Write l_sourceJdentifier " maxlength=*'30'* 

else 

Response. Write I_panel_scheme 

end if %> 

</fontX/bX/fontx/div> 

</td> 

</tr> 



</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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edit panel def.asp 

<%@ Language=VBScript %> 
<!" # include file=".7support/global_constants.asp" -> 
<!" #inciude fi[e=".ysupport/dbConnection.asp" --> 
<!-^#inciude file=".7support/adoUtiis.asp" -> 
<!- ^include file=".ysuppoTt/srcTab,asp^ -> 

<% 

If Request.Fonn("UPDATE,x") o then 

i_button =^ "Update" 
eiself Request formCDELETE.x") o then 

l_button = "Delete*' 
end if 

l_TecJd = Request.QueryString("Z") 
'Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 
if l_button = ''Update" or Lbutton = "Delete" then 
l_action - true 

I ^product Jd - SessionCPRODUCTJD") 

i_panel_scheme - request.form("P_PANEL_SCHEME'') 

l_paneI_codes = request.form("P_PANEL_CODES") 

i_panel_name = Request.form("P_PANEL_NAME") 

ijogin = Session("U*') 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_panei_der 
objCMD.CommandType = adCmdStoredProc 
objCMD-Parameters. Refresh 
objCMD.Parameters(l). Value = lj5anel_scheme 
objCMD.Parameters(2). Value = l_panel_codes 
objCMaParameters(3). Value = I_panel_name 

objCMD.Parameters(4). value = cint(l_rec_id) 
if i_button - "Delete" then objCMD.Parameters(5).Value = I else objCMD.Paranieters(5), Value = 0 
Set TempNonSession Var = objCMD.ExecuteQ 
Response.Redirect "tabautosetup.asp" 
l_action = true 
else 

I_action - false 

strSQL = "select panel_schcme, panel_codes, panel_name " & _ 
" from autosetup_panel_def " & _ 

" where rec_td = " & l_rec_id 
ObjRST.open strSQL. strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 

IjjaneLscheme = objRSTrPANEL_SCHEME") 
1 _panel_codes-objRST("PANEL_CODES") 
l_panel_name = objRST("PANEL_NAME") 
end if 

ObjRSTxiose 

end if 
end if 



%> 
<html> 
<head> 

<title>cdit_pancl_defasp</title> 
</head> 

<body bgcolor="#99CCFF" vUnlc="OOOO0O" link="003366"> 

<forni method="post" action="edit_j)anel_defasp?Z=<%Response. Write Uecjd %> " id=forml name=forml> 
<tab1e width-"640" bordei-"0" cellpadding-"2"> 
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<tr val!gn=**top*'> 

<td align="ier width="640" coIspan="3"ximg src=".. /graphics/edit 1 222.gif' width="27" height="i4"x/td> 
</tr> 

<tr va!ign=="top"> 

<td align="left'' width- '640" coispan=''3"> 
<tabie width="500" border="0" cellspacing="3'' cellpadding="2*'> 
<tr valign=*'top''> 
<td height-"25" aiign="left"> 
<div align="left"x/div> 
</td> 

<td height="25" align^"left"> 

<inputtype='IMAGE' Value^^UPDATE- Name='*UPDATE'' 
src="../graphics/submitl222-gif' width="54" height="16'' border=*'0''> 
<imgsrc="../graphics/blankl222.gir width="20'' heighten 6^ border=0> 
<input type='IMAGE* Va!ue=" DELETE" Name^^DELETE" 
src-r./graphics/deletc!222.gir width^'SS" height=''16'* border-0> 
<%' <input type=='IMAGE' VaIue="DELETE" Name-'DELETE" 

'src-\./graphics/ddetel222.gir width^'SS" height=''16'' border-0> %> 
<font face=**Verdaria, Arial, Helvetica, sans-serif* si2e=M''> 
<a href=**tabautosetup.asp''>Retum to Auto-Setup table</ax/fontx/td> 
</tr> 



<tr> 

' <:td bgcotor=*'003366'' height="20" width=''140" align="center"> 
<div aiign=''center"> 

<font face=*' Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF'*> 
<bxfont $ize=="r> 
PANEL SCHEME 
</fontx/bX/fontx/div> 
</td> 

<td bgcolor-"#99CCFF" height="20'' width=''360'* aUgn-"left"> 

<div aIign="left"xfont face-" Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF"xbxfont size=- P 
color^"#000000-> 

<%if not l_action then %> 

<input type=**TEXT'' NAME='P_PANEL_SCHEME' 

id^ value="<%Response.Write l_panel_schcme %>" maxlength^''50" 

stze--30''> 

<% else 

Response.Wnte l_panel_scheme 

end if %> 

</font></bx/fonlx/d i v> 

</td> 

</tr> 

<U> 

<td width-^HO" bgcolor="#003366" height=*'20" align=''center"> 

<div align-^center'-xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="r>PANEL 
CODES</fontx/bx/fontx/div> 
</td> 

<td width-"360" bgcolor-=*'#99CCFF'' height="20" align-" left"> 

<div align="left"xfont face^*" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=T 
color="#000000"> 

<:%if not l_action then %> 

<input type="TEXT" NAME=T_PANEL_CODES* id=0 
value-"<%Response. Write I_panel_codes %>" maxlength="250" size="100"> 

<% else 

Response.Wnte l_panel_codes 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 



<tr> 

<td width="140" bgcolor="#003366" height="20" align="center"> 

<div aIign="center"xfont face=" Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF"xbxfontsize="l">PANEL 

NAME 

</font></bx/font></div> 
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</td> 

<td wiclth="360'' bgcoIor-"#99CCFF" height="20" align-'*left"> 
<div aIign="left"xfont face=" Verdana, Arial, Helvetica, sans-serif colop="#FFFFFF"xbxfont size=T 
coior-"#000000''> 

<%if not l_action then %> 

<input type="TEXT'' NAME='P_PANEL_NAME' id-0 
value=*'<%Response. Write i_panel_name %> " maxlength^^SO" size="30**> 

<% else 

Response. Write l_panel_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 



</table> 
</td> 
</tr> 
</tab!e> 
</form> 
</body> 
</html> 
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edit renewal psdef.asp 

<Vo@ Language=VBScript %> 
<1- #inciude file=".7support/giobai_constants.asp" -> 
<!- ^include file=" Jsupport/dbConnection.asp" -> 
<!- #include flle^^7support/adoUtiIs.asp" -> 
<!- #inciude file-''.7support/srcTab-asp'' -> 

<% 

If RequestFormCOPDATEx") o then 

I_button = -Update" 
elself RequestformCDELETEx") o then 

l_button - "Delete* 
end if 

l_rec_id = RequestQueryStringCZ'*) 

•Response.Write i_rec_id 

if (IsNumeric( l_recjd) ) then 

if l_button = "Update" or l_button = "Delete" then 

!_action ~ true 

1_src cat_name = RequestFormCP_SRC_CAT_NAME") 
l_source_naine = RequestFormrP_SOURCE_NAME'') 
if not(i_source_namc>'* ") then !_source_name = "Undefined" 
I_sourceJnd(cator = RequestFonn(-P_SOURCE_INDICATOR") 

l_prior_sourceJndicator = Request.formCP_PRIOR_SOURCE_INDICATOR'*) 
[_valid_from = RequestformrP_VALID_FROM'') 
l_vaItd_to ^ RequestfoTmCP_VALlD_TO") 

objRST.open "select src_cat_name from source where source_name = & l_source_name & strSQLOLEDB, 
adOpenStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(O) else i_src_cat_name = "Undefined" 
objRST.cIose 

response. write (l_prior_sourceJndicator & " < Prior source indicator ") 

objCMD.AcdveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_renewal_psdef ' 
objCMD.CommandType ~ adCmdStoredProc 
objCMD. Parameters.Refresh 
objCMD.Parameters(l). Value = I_src_cat_name 
objCMD.Parameters(2). Value = l_source_nanie 
objCMD.ParameteTs(3). Value = l_sourceJndicator 

objCMD-Parameters(4).Value ~ trim(l_prior_sourcejndtcator) 
objCMD.Paranieters(5). Value = i_valid_from 

objCMD.Parameters(6). value = l_vaiid_to 

objCMD,Parameters(7), value ~ cint(l_recjd) 
if l_button = "Delete" then objCMD.Parameters(8). Value = i else objCMD.Parameters(8). Value = 0 
Set TempNonSessionVar = objCMD.ExecuteQ 
Response.Redirect "tabautosetup.asp" 
l_action - true 
else 
l_action - false 

strSQL = "select $ource_name, sourcejndicator, prior_sourceJndicator, vaHd_from_date, valid_to_date " & _ 
" frwn autosetup_renewal_psdef " & _ 

" where rec_id = " & l_rec_id 
ObjRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
if (ObjRST.EOF - False) then 

l_source_name = ObjRSTrsource_nanie") 

l_sourccJndicator = objRST("source_indicator") 

l_prior_sourcejndicator = objRST("prior_sourceJndicator") 

l_valid_from ObjRST("va]id_from_,date") 

l_valid_to - ObjRST("vand_to_date") 

end if 

ObjRST.cIose 

end if 
end if 
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<html> 
<head> 

<tit[e>eciit_renewal_psdef.asp</title> 
</heaci> 

<body bgcoIor=''#99CCFF" vlink-'^OOOOOO" link="003366"> 

<form method-"post" action="edit_renewal_psdef asp?Z=<roResponse.Write Lrec_id %> " id^forml nam&-forml> 
<table width-"640" border=-0" cellpadding='*2*'> 
<tr vaUgn=''top"> 

<td align-neft" width-''640" colspan-^S^ximg src=",7graphics/edill222,gir width=-27'* height=''l4"x/td> 
</tr> 

<tr vaIign=''top"> 

<td align="left" wtdth=''640" colspan==="3''> 
<table width^^'SOO" border="0'' cellspacing=''3" ceapadding=''2"> 
<tr valign-'top"> 
<td height^'^S** aiign="left''> 

<div aJign="left"x/div> 
</td> 

<td height='*25'' angn='*left''> 

<input type^'lMAGE* Value=*'UPDATE- Name^^UPDATE** 
src-".ygraphics/submitl222.gir widih="54*' height=''l6'' border="0''> 
<img src=".7graphics/b!ankl222.gir width-*'20'' height-ne" border=0> 
<input type=^IMAGE' Value-''DELETE'* Name=*'DELETE'' 
src="„/graphics/deletel222.gir width^*'53'' height=''l6'' border^> 
<%' <input type='IMAGE' Value-^'DELETE" Name=''DELETE" 

'src=".7graphics/deletel222.gir width='*53'' height=-16" border=0> %> 
<font face-'Verdana, Arial, Helvetica, sans-serif si2e-''-4"> 
<a href^-tabautosetup.asp'^Retum to Auto-Setup table</ax/fontX/td> 
</tr> 

<tr> 

<td bgcolor="003366'' height="20" widih="140" aiign='' center" > 
<div align=''center"> 

<font face=''Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize=*'i*'> 
SOURCE NAME 
</fontx/bx/fontx/div> 
</td> 

<td bgcoIor=**#99CCFF" height="20" width-*'360" align="left'' > 
<div align^'left^xfont face=''Verdana, Aria], Helvetica, sans-serif co!or="#FFFFFF"xbxfont si2e="I" 
color="#000000"> 

<%if not l_actibn then 

strSQL = "select U_SOURCE_N AME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sho\vQueryListBoxobjRST, -P_S0URCE„NAME^6, "SELECT SOURCE\ 

l_source_name 

objRST.cIose 

else 

Response. Write l_source_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width="l40" bgcoior^"#003 3 66" height="20" align=''center"> 
<div align=**center*'xfont facc=**Verdana, Arial, Helvetica, sans-serif color^''#FFFFFF"xbxfont size=''r>SOURCH 

INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width=''360'' bgcolor="#99CCFF" height="20*' align=''leff > 

<div aIign-"left"xfont face='' Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF"><bxfont size-T 
color="#000000"> 

<%if not I_action then %> 

<input type="TEXT" NAME='P_SOURCE_rNDiCATOR' 
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id=0 value=*'<%Response.Write i_sourceJnclicator %>" maxiength-"30" 

size-"6"> 

<% else 

Response. Write l_source_indicator 

end if %> 

</foTitx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width^^^HO" bgcolor="*003366" height^^lO" align=**center> 
<div align^-center-xfont face='' Verdana, Arial, Helvetica, sans-serir colot=''#FFFFFF''xbxfont si2e='' 1 '*>PRIOR 

SOURCE 

INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="360" bgcolor-"#99CCFF" height-^lO" align-"Ieft- > 
<div a[ign=*'left"xfont face=" Verdana, Ariai, Helvetica, sans-serir color="#FFFFFF''xbxfont size-T 
coior="#000000"> 

<%if not l_action then %> 

<input type=-TEXT'' NAME-'P_PRIOR_SOURCE_INDICATOR' 
id=0 vaIue=''<%Response. Write t_prior_sourceJndicator %>" 

maxlength^"250' size-="IOO"> 

<% else 

Response. Write l_prior_sourccjndicator 

end if %> 

</fontx/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width="140'' bgcoior=''# 0033 66" hcighr=*'20" align=''cenler"> 
<div align-^center-xfont face-" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF-xbxfont size=" r> VALID 

FROM 

</fonl></bx/fontx/d iv> 

</td> 

<td width-*'360" bgcoIor=-#99CCFF" hei^t="20'' align='*left''> 
<div align^^lefrxfont face-"Verdana, Arial, Helvetica, sans-senr color="#FFFFFF''xbxfont size-" P 
color='*#000000''> 

<%if not l_action then %> 

<input type-TEXT'' NAME=T_V ALID_FROM* 

idO value^"<%Response. Write I_valid_from %>" maxlength=''30'' 

size=''15'*> 

<% else 

Response. Write l_valid_from 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td width="l40'* bgcoior="#003366'' height-*'20" aUgn="center"> 

<div a!ign==''center''xfont face^" Verdana, Arial, Helvetica, sans-serir 

color-"#FFFFFF''xbxfont size^** 1 ">V ALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width=^''360'' bgcolof="#99CCFF'' height='*20'' align=**iefr> 
<div align^^'^Ieft'^xfont face="Verdana, Ariai, Helvetica, sans-serir 
color=''#FFFFFF''><bxfont size^T color-"#000000"> 

<%if not inaction then %> 

<input type-TEXT'* NAME-'P_VALID_TO' 

id=0 vaiue="<%Response. Write l_validjo %>" maxlength==''30'' stze="l5"> 

<% else 

Response. Write I_vaIid_to 

end if %> 

</fontx/b></fontx/div> 

</td> 
</tr> 
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</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</htmi> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 115 of 200 




IMT Subscription Marketing Reporting System 



cditcamp.asp 

<%@ Language^ VBScript %> 
<!-#incIucie file^"„/support/global_constants.asp" -> 
<1- # include file=''../support/dbConnection.asp" --> 
<!- #include fiIe^"../support/adoUtiIs,asp" -> 
<l- # include fiie='*../support/srcTab.asp'' -> 

<% 

Response. Write "HEY 1 !1" 
If RequestFonnrUPDATE.x") o then 

l_button = "Update" 
elself Request-formCDELETE.x") o then 

l_button ^ ''Delete*' 
etself RequestiormrCOPY") o "" then 

I_button = "Copy" 

end if 

|_recjd - Request.QueryString("Z") 

'Response, Write " iodsha ofipasdh ftoydhopas " & I_button & L^ecjd 
If (IsNumeric( Lrecjd) ) then 

if l_button = "Update" or i_button = "Delete" or l_button = "Copy" then 

'Response. Write " FDSA FDS AFDSA FDSA FDSA FDSA FDSAFDashdfi as;hfidashp 
fiodhasopfihdsioOapfhdiospahfdiospafi8doas[p fiodsha ofipasdh fioydhopas " 

l_camp = REQUESTCP.CAMP") 

l_canip_type = REQUEST("P_CAMP_TYPE" ) 

Lcamp_status = REQUEST("P_CAMP_STATUS" ) 

Lcarap_date_fr - REQUEST("P_CAMP_DATE_FR" ) 

I_camp_datejo - R£QUESTrP_CAMP_DATE_TO'' ) 

l_agt_code = REQUESTCP AGT^CODE" ) 

l_agt descr = REQUESTCP_AGT_DESCR" ) 

l_c_set_name = REQUESTrP_E_SET_NAME" ) 

l_r_set__name = REQUESTrP_R_SET_NAME'' ) 

l_NEWSTAND__SAie = REQUEST("P_NEWSTAND_S ALE" ) 

l_budgeted_gross_pct = REQUESTrp_budgeted_gross_pct" ) 

l_budgeted_vol ^ REQUEST("p_budgeted_vor) 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_campaign" 
Response. Write l_budgeted_gross_pct & " " & validateNumber(l_budgeted_gross_pct) (S:"<br>' 
objCMD.ConamandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l). Value = l_camp 
objCMD,Parameters(2). Value = ValidatePickList (l_camp_type) 
objCMD.Parameters{3).Value = ValidatePickList(l_camp_status) 
objCMD.Parameters(4), Value = validateDate (l_camp_date_fr) 
objCMD.Parameters(5).Value = null 
objCMD.Parameters(6).VaIue = null 
objCMD.Parameters(7), Value = null 

objCMD.Parameters(8). Value = VALIDATEPickList (l_e_set_name) 
objCMD.Parameters(9). Value = ValidatePickList (l_r_set_name) 
objCMD.Parameters(lO). Value = validateNumber(LNEWSTAND_SAle) 
objCMD.Parameters( 1 1 ). Value = validateNumber(l_budgeted_gross_pct) 
objCMD.Parameters(12).Value ^ validateNumber(l_budgeted_vol) 
objCMD.Parameters(13), Value = SessionfU") 

objCMD.Parameters( 14). Value ^ l_rec_id 
if l_button "Delete" then 
' THis is the isDelete Parametere 

objCMD.Parameters( 15). Valuer i 
elsei f l_button - " Update" then , 

objCMD.Parameters(l 5). Value = 0 
elseif l_button "Copy" then 

objCMD.Parameters(15),value ==2 

end if 

Set TempNonSessionVar = objCMD.ExecuteQ 
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Response.Redirect ''admin5a.asp?display=r 

else 

Inaction = false 

strSQL = "select CAMP_NAME, CAMP_TYPE, CAMP_STATUS_NAME, 
& " CAMP_DATE_FR, CAMP_DATE_TO, AGT_CODE, " _ 
& " AGT_DESCR, E_SET_NAME, R_SET_NAME, NEWSTAND_SALE, * 
& " budgeted_^oss__pct, budgeted_voI ** _ 

& " FROM Campaigns " _ 

& " WHERE recjd = & cint(i_rec Jd) 

ObjRST.open strSQL. strSQLOLEDB, adOpenStatic, adLockOptimistic 

If (ObjRST.EOF = False) then 
l_camp = ObjRST.FieIdsCCAMP_NAME") 

l_camp_type- ObjRST.FieIdsCCAMP_TYPE'') 
l_camp_status = ObjRST.FieldsC'CAMP_STATUS_NAME*') 
l_camp_date_fr = ObjRST.FieldsCCAMP_DATE_FR'') 
l_camp_date JO = ObjRST.Fie!dsC*CAMP_DATE_TO'') 
l_agt_code = ObjRST.Fieids("AGT_CODE**) 
I_agt_descr = ObjRST.Fields(''AGT_DESCR*') 
[_c_sel_name = ObjRST.Fields("E_SET_NAME'') 
|_r_set_name = ObjRST,Fields("R_SET_NAME") 
I_N£WSTAND_SAlc = ObjRST.FieldsCNEWSTAND^SALE") 
i_budgeted__gross_pct = ObjRST.FieldsCbudgeted_gross_pct" ) 
i_budgeted_voI = ObjRST.Fields("budgeted_vo!'') 

end if 

objRSTxiose 
end if 
end if 



%> 
<html> 
<head> 

<titie>IMT Network</title> 
</head> 

<body bgcolor=*'#99CCFF" vlink="OOOO0O" link="003366"> 

<form melhod-''post'* action-'*editCainp.asp?Z^/oResponse. Write Uecjd %> " id=forml name=forml> 
<table width-''640" border^-'O" cellpadding-"2"> 
<% prevSeIections(4) %> 
<lr vaIign=''top*'> 

<td align^^^left" width=*'640" colspan=''3'*> 
<imgsrc-\./graphics/editl222.gir width=*'27" height-" 14''x/ld> 
</tr> 

<tr valign=''top''> 
<td align='*ieft" width=*'640" colspan="3"> 
<table width^-500" border^'^O" cellspacing="3" cellpadding=''2''> 
<tr vaIign=''top'*> 
<td height=''25'' align=*'left"> 

<div align="left-x/div> 
</td> 

<td height-^ZS" align-neft*'> 

<input type='IN4AGE' Value=*'UPDATE'' Namc=-UPDATE" 
src="../gjaphics/submitl222.gir width="54" height=''16" border="0"> 
<imgs^c=^./graphics/biankl222.gi^ width="20" height="16- border=0> 
<SCRIPT LANGUAGE="JavaScriptl,r> 

<]- Comment out script for old browsers 
function confirm delete_campO { 

retum^confirmCThis will delete the Campaign, all of its panels and all of its keys. This operation 
can not be undone. Are you sure you wish to delete this Campaign?"); 
} 

//-> 

</SCRIPT> 
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<input type='IMAGE* Value="DELETE" Name-'^DELETE*^ 

src=^yg^aphics/delete^222.g!^ width^^SS" height="l6'' onCiick="retum confirm_delete_campO" border=0> 
</td> 

<tdxinputtype="SUBMIT" Value=*'COPY" Name="COPY" id="COPY''> 
</td> 

<font face='*Verdana, Arial, Helvetica, sans-serif si2e=M''> 
<a hrc^''admtn5a.asp**>Retum 
to Campaign</aX/fontx/td> 

</tr> 

<tr> 

<td bgcoloi="003366" height="20'* width=-140" align=''centcr''> 
<div align=''ccnter"> 

<font face^-Verdana, Arial, Helvetica, sans-serir co!or=''#FFFFFF''> 

<bXfont 5126=" I 

CAMPAIGN NAME 
</fontx/bx/fontx/dtv> 
</td> 

^align="LEFT''> 

<%if not l_action then %> 
<input type="TEXr' NAME=*P_CAMP' 
id=0 value='<%Response. Write i_camp %>*> 

<% else 

Response.Write l_camp 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width='' 140" aiign--center"> . 
<div align="center''> 

<font face^"Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF"> 

<bxfont si2e=''r> 

CAMPAIGN START DATE 

</font></bx/fontx/div> 

</td> 

<TD aiign-"LEFT"> 
<%if not faction then %> 

<input type='*TEXT'' HAME=T_CAMP_DATE_FR' 
id=0 value- <%Response. Write Lcamp_date_fr %>*> 

<% else 

Response.Write l_camp_date_fr 
end if %> 

</td> 
</trxtr> 

<ld bgcolor-"003366" height-"20'' width=="i40" align="center"> 
<div align=''center*'> 

<font facc="Verdana, Arial, Helvetica, sans-serif color=*'#FFFFFF"> 
<bxfontsize=*'r> 
CAMPAIGN TYPE 
</fontx/bx/fontx/div> 
</td> 

^OBalign^-'LEFT'^ 
<%ifnotl action then 

strSQL -""select CAMP_TYPE_NAME from PROD_CAMP_TYPE where ^ _ 
& " PRODUCTJD^" & SessionCPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, **p_camp_type",6, •'SELECT TYPE^ l_camp_type 
objRSTxlose 
else 

Response.Write l_camp_type 
end if %> 

</td> 
<tix\i> 

<td bgcolor=-003366'' height="20'' width-^MO" align=='*center"> 
<div align-*'center"> 

<font face-^Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size=T> 
CAMPAIGN STATUS 
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</fonP«^/b></fontx/div> 
</td> 

<TD align="LErr> 
<%if not Inaction then 

strSQL - "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where " _ 
& " PRODUCTJD^" & SessionCPRODUCTJD") 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, ''p_camp_status",6, "SELECT STATUS^ l_camp_status 
objRST.close 
else 

Response, Write l_cainp_status 
end if %> 

</td> 
</trxtr> 

</tr> 

<% IF SESSION^ SRC_CATEGORY'') = "Agents" then %> 
<tr> 

<td bgcolor=='*0033^" height=''20" width="140'' aUgn="center'*> 
<div aiign=*'center*'> 

<fonl face=''Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont si2e=T> 
Agent Code 

</fontx/bx/fontx/div> 
</td> 

<TDaIign=''LEFT"> 
<%if not I_action then %> 
<input type=''TEXT' NAME=*P_AGT_CODE* 
id=0 value='<%Response. Write l_agt_code %>*> 

<% else 

Response. Write l_agt_code 
end if %> 

</td> 
</trxtr> 

<td bgcoloi^-003366'' hcight=''20" width^'HO" align-"center"> 
<div align="center''> 

<font face="Verdana, Arial, Helvetica, sans-serif color^"#FFFFFF"> 
<bxfont size="r> 
Agent Descr 

</fontx/bx/fontx/div> 
</td> 

<rD aIign=''LEFT''> 
<%if not !_action then %> 
<input type="TEXr NAME=T_AGT_DESCR' 
id=0 vaiue='<%Response.Write l_agt_descr%>'> 

<% else 

Response.Write I_agt_descr 
end if %> 

</td> 
</tr> 

<%else %> 

<inputtype="hidden'' NAME=T_AGT_DESCR' 
value-"> 

<inputtype="hidden'' NAME=T_AGT_CODE' 

value==*'> 
<% end if %> 

<tr> 

<td bgcolor-"003366" height-'20" width="140'' aiign="center'*> 
<div atign=="center**> 

<font face="Verdana, Arial, Helvetica, sans-serif coior="#FFFFFF"> 
<bxfont size=''r> 
EXPENSE SET 
</fontx/bx/fontx/div> 
</td> 

<TD aIign="LEFT*'> 
<%ifnot1 action then 
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strSQL = "select e_set_name from EXPENSE^SETS where " _ 
& " PRODUCT & SessionCPRODUCTJD") 
objRST-open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, •'p_E_SET_NAME",6, "SELECT EXPENSE SEr, LE_SET_NAME 
objRST.close 
else 

Response. Write i_e_set_name 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366'' height==*'20** width^^HO** align=''center*'> 
<div align=''ccnter''> 

<font face^^Verdana, Arial, Helvetica, sans-serif color=*'#FFFFFF''> 
<bxfont size^" r> 
REVENUE SET 
</fontx/bx/fontx/div> 
</td> 

<TD align=''LEFT*'> 

<%if not l_action then 
StrSQL = "select r_set_name from REVENUE_SETS where " _ 
& PRODUCTJD=" & Session(TRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowQueryListBox objRST, "p_r_SET_NAME",6, "SELECT REVENUE SET \ 1_R_SET_NAM£ 
objRST.close 
else 

Response. Write l_R_SET_NAME 
end if %> 

</td> 
</tr> 
<tr> 

<td bgcoior=''003366" height="20'' width="I40*' align="center"> 
<div align=*'center*'> 

<font face='*V€rdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"> 

<bxfont size=**r> 

NEWSSTAND SALE 

</font></bx/fontx/div> 

</td> 

<TD aIign-"LEFT"> 
<%if not !_action then %> 

<input type^^TEXT" NAME-'P_NEWSTAND_SALE' 
id-0 vaIue=='<%Rcsponse.Write I_NEWSTAND_SAle %>'> 

<% else 

Response. Write 1_NEWSTAND_SAle 
end if %> 

</td> 
</trxtr> 

<td bgcolor=''003366'' height=*'20" width=''i40^ align=''center"> 
<div align=*'center"> 

<font face="Verdana, Arial, Helvetica, sans-serif coior=''#FFFFFF''> 

<bxfontsize=''I''> 

BUDGETED GROSS % 

</font></bx/fontx/div> 

</td> 

<rD align-*'LEFT''> 
<%if not Inaction then %> 

<input type^^TEXT" NAME='P_budgeted _gross_pct' 
id=0 value='<%=l_budgeted_jgross_pct%>*> 

<% else 

Response.Write I_budgeted_gross_pct 
end if %> 

</td> 
</Xrxxi> 

<td bgcolor="003366" height=*'20'' width=''140" align="center"> 
<div align-"center''> 

<font face="Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF*'> 
<bxfont size- ' 1 "> 
BUDGETED VOL 
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</fontxA)X/foTitX/div> 
</td> 

<TD align="LEFT"> 
<%if not l_action then %> 
<input type-^TEXr NAME=T_budgeted_vol' 
id=0 value- <%=i_budgeted_voi%» 

<% else 

Response.Write l_budgeted_vol 

end if %> 

</td> 
</tr> 



</table> 
</td> 
</tr> 

</table> 
</form> 



<P> </P> 

</BODY> 
</HTML> 
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edUcampstat.asp 

<%@ Unguage=VBScript %> 

<!- #include file=-../support/global_constants,asp" --> 

<!- include file^^.ysupport/dbConnection.asp** ~> 

<!- # include file=''.7suppoit/adoUtils.asp*' -> 

<!- # include file="../support/srcTab.asp" -> 

<!- # include file=''.ysupport/setupTab.asp'' -> 

<% 

If RequestFormCUPDATE.x") o then 
l_action ~ "Update" 

dself Request formC'DELETE.x") o then 
l_action - "Delete'* 

end if 

!_ColuninCount - 2 

i_rec_id = Request.QueryString("Z'') 

l_sp_edit = ''sp_Edit_Prod_Camp_status" 
l_file = "editCampStatasp** 

dim l_col_names(2) 
dim l_col_values(2) 
IJTitle = * Campaign Status" 

l_setupTabLink = "setupCampStat.asp** 
l_showPrcvSelcction- false 

t_col_names(0) = "CAMPAIGN STATUS" 
l_coLnames(l) - "DESCRIPTION" 

Lquery = "select CAMP_STATUS_NAME, CAMP_STATUS_DESCR " _ 
& " FROM PROD_canip_status " _ 
& " WHERE recjd = " & cint(I_rec_id) 



' Response. Write Lrec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAccept l_recjd, l_action, i_CoIumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = Lquery 

ObjRST.open strSQL, strSQLOLEDB. adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
LcoLvaiues(O) = ObjRST.Fields(O) 

Lcol_values(l)= ObjRST.Fields(l) 

end if 

objRST.cIose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
cditHeading l_file, l_file, I_recjd 

*assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitIeJ_setupTabLink,l_showPrevSelectionJ_col_names,l_col_valuesJ_CoIumnCount 
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' call setupTab's editBottom to close body, html, form 
editBottom %> 
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cditcamptvpe.asp 

<%@ Language=VBScript %> 

<!- #include file="„/support/globaI_constants,asp" ~> 

<!- #include fiIe="../support/dbConnection,asp" -> 

<!— #include ftIe="../support/adoUtils.asp" — > 

<!- #include fiIe=''.7support/srcTab.asp" -> 

<!~ # include fiIe=".7support/setupTab.asp*' -> 

<% 

dim l_coI_names(2) 
dim l_coI_values(2) 

l_ColumnCount - 2 
l_recjd = Request. QueryStringC'Z") 
If RequestFormCUPDATE-x") o then 
I_action = "Update" 

elself Request.formCDELETE.x") o then 
l_action = "Delete" 

end if 

Lsp_edit = "sp__Edit_Prod_Camp_Type" 
l_file = *'editCampTypc.asp" 
l_Title - " Campaign Type" 
l_sctupTabLink = "setupCampType.asp" 
l_showPrevSeiection= false 

Lcol_names(0) - "CAMPAIGN TYPE NAME" 
l_col_names(l) = "DESCRIPTION" 

l_queiy = "select CAMP_TYPE_NAME, CAMP_TYPE_DESCR " _ 
& " FROM PROD_camp_typc " _ 
& " WHERE recjd - " & cint(Lrec_id) 

' Response. Write i_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or !_action = "Delete" then 

editAccept I_rec_id, I_action, l_ColumnCount, I_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_coLvalues(0) - ObjRST.Fieids(O) 

l_col_values(l)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading I_file, l_file, L^'^cjd 

'assign values to variables for setupTab's editMain 



• call setupTab's editmain to paint screen for user input 

editMain l_Tille,l_setupTabLink,l_showPrevSeIection,l_col_names,I_col_valucs,I_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editeset.asp 



<%@ Language=VBScript%> 
<[- ^include file=".7support/globai_constants,asp" -> 
<!- # include file="../support/dbConnection.asp" -> 
<!-#mcIude file=''../support/adoUtUs.asp" -> 
<!- # include file=''../support/srcTab.asp'' -> 



<% 



If RequestFormCUPDATEx") o then 

l_button = •'Update" 
eiself Request.formCDELETE.x") o then 

I_button = ''Delete" 
end if 



recjd = RequestQueryStringCZ") 
'Response. Write i_rec_id 

If IsNumeric(rec_id) then 

•response. writeCHelto World > button - " & l_button) 
if l_button "Update" or l^button = "Delete" then 

product Jd = SessionCPRODUCTJD") 
e_set_name = Rcquest.form("e_set_name") 
print_cost = Request.form("print__cost") 
print_cpm__cpu - Request fonii("print_cpm_cpu'') 
print_basis = Requestform("print_basis") 
merge_purge - Request.form("inergej3urge") 
merge_cpm_cpu = Requestfonn("merge_cpm_cpu") 
merge_basis - Requestfonn("merge_basis") 
Itr_cost = RequestformCltr^cost") 
ltr_cpm_cpu = Requestform("!tr_cpm_cpu'') 
ltr_basis = Request form("ltr_basis'') 
postage_out_cost = requestform("postage_out_cost") 
postage_out_cpm_cpu = Requestform("postage_out_cpm_cpu") 
postage_out_basis = Request.form("postage_oul_basis") 
postage_in_cost = Request fonn("postagejn_cost'') 
postageJn__cpm_cpu = Request fonn("postage_in_cpm_cpu") 
postage Jn_basis = Request form("postage_in_basis") 
premium_cost = Requestfonn("premium_cost") 
premium__cpm_cpu = Request. form("premtum_cpm_cpu") 
premium_basis = Requestfomi("premium_basis") 
badpay_cost = Request. fonn("badpay_cost") 
badpayjcpm_cpu = Requestform("badpay_cpn)_cpu") 
badpay_basis = Requestform(''badpay_basis'') 
bining_cost = Rcquestformfbiiling^cost") 
biUing_cpm_cpu = Request.form("billing^cpm_cpu") 
bilHng^basis = RequestfonnCbilling_basis*') 
subs_svc_costs = Requestform("subs_svc_costs") 
subs_svc_cpm_cpu = Requestform("subs_svc_cpm_cpu") 
subs_svc_basis - Requestform("subs_svc_basis") 
exp_pther_costs = Request form{'*exp_other_costs") 
exp_other_cpm_cpu = Request.form('"exp_other_cpm_cpu'') 
exp_other_basis = Request. form("exp_othcr_basis") 
if i_button = "Delete" then IsDelete = I else IsDeiete = 0 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_prod_e_set" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refiresh 

objCMD.Parameters{''@productJd"). Value ^ productjd 

objCMD.Parameters("@e__set_name"). Value = e_set_name 

if not (print_cost > " ") then 

objCMD.Parameters("@print_cost"), Value ^ null 

else 

objCMD ParametersC@print_cost"). Value - print_cost 

end if 
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objCMD.ParametersC'@print_cpm_cpu*').Vaiue = print_cpm_cpu 
objCMD Parameters("@print_basis"). Value = print_basis 
if not (merge_j)urge > then 

objCMD.Parameters(*'@merge_purge*'). Value = null 

else 

objCMD.ParametersC@merge_purge''). Value = merge_purge 

end if 

objCMD.Parameters("@merge_cpm_cpu"). Value = nierge_cprn_cpu 
objCMD.Parameters("@merge_basis*'). Value = merge_basis 
if not (Itr^cost > then 

objCNID.Parametersr@ilr_cosr). Value = null 

else 

objCMD^ParametcrsCQItT^cost"). Value = ltr_cost 

end if 

objCMD.Parameters(**@ltr_cpm__cpu''). Value - ltr_cpm_cpu 
objCMD.Parameters{*'@itr_basis").Value = ltr_basis 
if not (postage_out_cost > " ") then 

objCMD.Parameters(*'@postage_out_cost'').vaIue = null 

else 

objCMD.ParametersC'@postagejOut_cost"). Value = postage_out_cost 

end if 

objCMD.Parameters(''@postage_out_cpm_cpu"),Valuc - pcstage_out_cpm_cpu 
objCMD.Parameters("@postage_out_basis*'), Value = postage_out_basis 
if not (postage Jn_cost > ") then 

objCMD.Parameters(*'@postage_in_cost*') - null 

else 

objCMD.ParametersClgpostageJn^cost**). Value - postage_in_cost 

end if 

objCMD.Parameters(''@po$tageJn_cpm_cpu''). Value = postageJn_cpm_cpu 
objCMD.ParametersO'@postage_in_basis''), Value = postage_in_basis 
if not (prcmium_cost > ** ") then 

objCMD.ParametersC*@premium_cost*) = null 

else 

objCMD.Parameters(*'@premium_cost''). Value = premiuni_cost 

end if 

objCMD.Parameters{''@premium_cpm_cpu"). Value ~ prcmium_cpm_cpu 
objCMD-Parameters(''@premium_basis"). Value = premiuni_basis 
if not (badpay^cost > " ") then 

objCMD.ParametersCgbadpay^cost*). value ~ null 

else 

objCMD.Parameters("@badpay_cost''). Value - badpay_cost 

end if 

objCMD.Parameters(''@badpay_cpm_cpu*'). Value = badpay_cpm_cpu 
objCMD.Parameters(*@badpay_basis''). Value ~ badpay_basis 
if not (bilIing;_cost > then 

objCMD.Paramcters(''@biUingjcost'').Value = null 

else 

objCMD.Parameters("@billing_cost"). Value = billing^cost 

end if 

objCMD.Parameters('*@bining_cpm_cpu''). Value - billing_cpm_cpu 
objCMD.Paranieters('*@bilUng_basis*).Valuc - bilUng_basis 
if not (subs_svc_costs > "'') then 

objCMD.Parameters("@subs_svc_costs'').value = null 

else 

objCMD.Parameters(''@subs_svc_costs**), Value - subs_svc_costs 

end if 

objCMD.Parameters(''@subs_svc_cpm_cpu'').Value = subs_svc_cpm__cpu 
objCMD.Parameters(*'@subs_svc_basts"). Value = subs_svc_basis 
if not (exp_other_costs > ** ") then 

objCMD.PAramcters('*@exp_other_costs") null 

else 

objCMD.ParametersC'@exp_other_costs*'). Value = exp_other_costs 

end if 

objCMD.Parameters(''@exp_other_cpm_cpu"). Value - cxp_other_cpm_cpu 
objCMD.Parameters("@exp_other_basis").Value = exp_otiier_basis 
objCMD,Parameters("@recJd").value - recjd 
objCMD.Parameters{"@JsDelete"X Value = IsDelete 
Set TempNonSessionVar - objCMD.ExecuteQ 
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Response.Redirect ''setupeset.asp'* 

else 'Neither Update or Delete was pressed 

strSQL = "select *"&_ 

" from expense_sets " & _ 

" where recjd = " & recjd 
'response.write (strSQL) 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
end if 
end if 



if l_button o "Update** and l_button o "Delete" then 

%> 
<html> 
<head> 

<title>editeset.asp</tit]e> 
</head> 

<body bgcolor="#99CCFF" vlink-^OOOOOO" link^^OOSS 66*'> 

<form nicthod="post'' action="editcsetasp?Z=<%Response. Write recjd %> " id^forml name=€onnl> 
<table border^^O" cellpadding=''2''> 
<tr> 

<td> 

<inputtype='IMAGE' Valuc^^'UPDATE" Name-^UPDATE" 

src=r./graphics/submiti222,gir width="54'' height^" 1 6" border="0-> 

<imgsrc-".Jgraphics/blank:l222,gir width-"20" hei^t="i6" border-0> 
<input type='IMAGE* Value-"DELETE" Name=" DELETE" 

src=".7graphics/deletel222.gir width^^'SS" height=M6" border=0> 
</td> 

</tr> 
<U> 

<td> 

<a href="setupesetasp">Retum to Expense Set Setup Tabte</a> 

</td> 

</tr> 

<tr><td>&nbsp</td></tr> 

<tr> 
<td> 

Expense Set 

</td> 
<td> 

<input type='*TEXr NAME="e_set_name" va!ue="<%=objRST("e_set_name")%>''> 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input type="TEXT" NAME="print_cosr value=="<%=objRSTC'print_cost'')%>'*> 

</td> 
<td> 

<% showLOVListBox '•CPM,CPU"."print_cpm_cpu",2,"", objRSTC'print_cpm_cpu") 

%> 

</td> 
<td> 

<input type=" HIDDEN* NAME="print_basis'' value="Mail Qty''> 
Mail Qty 

</td> 

<,'tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type="TEXT" NAME="mergej3urge" value="<%=objRST(''merge_purge")%>"> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 127 of 200 



IMT Subscription Marketing Reporting System 



%> 

objRSTCmerge^basis") %> 
</tr> 

<tr> 



<tr> 



</td> 
<td> 



</td> 
<td> 



</td> 



<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 



</td> 

<td> 

</td> 
<td> 



<% showLOVListBox '•CPM,CPU"/merge_cpm_cpu",2;'", objRSTrprinl_cpm_cpu") 
<% ShowLOVListBox "Mai! Qty,Merge Purge Qty",''merge_basis\2,''", 

Lettershop Cost 

<input type="TEXT" NAME="itr_cosr vaIue="<%=objRSTCltr_cosr)%>''> 

<% ShowLOVListBox '•CPM,CPU","ltr_cpm__cpu''^,"\ objRSTCltr_cpm_cpu") %> 

<inputtype="HIDDEN" NAME=*'ltr_basis'' value="Mail Qty"> 
Mail Qty 

Postage Out Cost 



<input type^TEXr* NAME=*'postage_out_cost" 
value^''<%=ofajRSTCpostage_out_cost'')%>''> 
</td> 



<td> 

objRST(''postage_out_cpm_cpu") %> 
</td> 
<td> 



</td> 

<tr> 

<td> 

</td> 
<td> 



<% ShowLOVListBox ''CPM,CPU"/postage_out_cpm_cpu",2/\ 



<input type=''HIDDEN" NAME=''postage_out_basis'' value=''Mail Qty"> 
Mail Qty 



Postage In Cost 



<input type^TEXT" NAME=''po$tageJn_cosr 
vaIue-''<%=objRSTrpostage_in_cosr)%>"> 
</td> 



<td> 

objRST(''postage_in_cpm_cpu") %> 
</td> 
<td> 



</td> 

</tr> 
<tr> 

<td> 

</td> 
<td> 



<% showLOVListBox ''CPM,CPU","postage_in_cpm_cpu'',2/ 



<input type=" HIDDEN" NAME="postage_in_basis" value="Gross Subs*'> 
Gross Subs 



Premium Cost 

<input type^TEXT" NAME=''premium_cost" 



value=*'<%=objRSTrpremium_cost")%>''> 
</td> 
<td> 

<% showLOVListBox ''CPM,CPU",*'premium_cpm_cpu",2,'" 

objRST(*'postageJn_cpm_cpu") %> 
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<hd> 
<td> 

objRST("premium_basis") %> 

</td> 

</tT> 

<tr> 

<td> 

</td> 
<td> 

</td> 
<td> 

objRST(''badpay_cpni_cpu") %> 

</td> 
<td> 

</td> 



</tr> 
<tr> 



%> 



</tr> 
<tr> 



<td> 

</td> 
<td> 

</td> 
<td> 



</td> 
<td> 



</td> 



<td> 

</td> 
<td> 



<% showLOVListBox "Gross Subs,Net Subs";'premium_basis'',2,'"', 
Bad Pay Cost 

<mput type^'TEXT" NAME=*'badpay_cost'' value-"<%=objRSTf badpay_cosf)%>"> 
<% ShowLOVListBox "CPM,CPU"/badpay_cpm_cpu".2/", 



<input type=" HIDDEN" NAME="badpay_basis'' valuc^^Gross-Net Subs'*> 
Gross-Net Subs 



Billing Cost 

<input type="TEXT'' NAME=''bining_cosr va!ue=''<%=objRSTCbiIiing^cosr)%>''> 
<% ShowLOVListBox ''CPM,CPU",''bilHn£_cpm_cpu*,2,'*\ objRSTCbiliing_cpm_cpu-) 



<input type="HIDDEN" NAME="biIling_basis" value=''Credit Subs'*> 
Credit Subs 



Sub Service Cost 



<input type=*'TEXT" NAME=''subs_svc_costs" 
value="<%-objRSTCsubs_svc_costs'')%>''> 
</td> 



<td> 

objRSTCsubs_svc_cpm_cpu") %> 

</td> 
<td> 



</td> 

<tr> 

<td> 

</td> 
<td> 



<% ShowLOVListBox •'CPM.CPU","subs_svc_cpTn_.cpuV/". 



<input type-"HIDDEN" NAME="subs_svc_basis" value="Net Subs''> 
Net Subs 



Exp Other Cost 



<input type=*'TEXT** NAME=="exp_other_costs'' 
value^"<%=objRST(''exp_other_costs*')%>*'> 
</td> 
<td> 

<% showLOVListBox "CPM,CPU","exp_other_cpm_cpu",2; 

objRST("exp_other_cpm_cpu") %> 

</td> 
<td> 
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<% showLOVListBox "Mail Qty,Merge Purge,Gross Subs,Net 
Subs","exp_other_basis",2,"", objRST("exp_other_basis") %> 
</td> 

</tr> 

</tabIe> 
</td> 
</tr> 
</tabie> 

<%=!_button%> 
</fonn> 
</body> 
</htmI> 

<%end if%> 
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editkcvs.asp 

<%@ Unguage=VBScript %> 

<!-#include fiIe="../support/global_constants.asp" -> 

<!-#include file="../support/dbConnection.asp" -> 

<!- #include file=".-/support/adoUtils.asp" -> 

<\- #inciude flle=^./suppo^t/s^cTab-asp" -> 

<!- ^include fiIe="../support/setupTab.asp" -> 

<% 

l_debug = 0 ' set 10 1 for debugging 

l_rec Jd = Request.QueryString("Z") 
ifl_debug^ I then 

Response, write i_rec_id 

end if 

If RequestFormCUPDATE.x") o then 

I_action = "Update" 
elself RequestJornirDELETE-x") o then 

!_action = "Delete" 
end if 

Lsp_c<lit = "sp^Edit^Keys" 
!_file = •*editKeys.asp" 
!_ColumnCount = 16 
diml_col_names(16) 
dim !_coI_values(16) 
dim l_col_types(16) 
dim I_coI_descl(16) 
dim i_col_desc2(l6) 
I_TitIe = ''Keys*' 

l_setupTabLink = "adminKeysRightasp" 
l_showPrevSe!ection= false 
l_coLnames(0) = "KEY" 

I_coI_names(l) - "KEY DESCRIPTION" 
l_col_names(2) = "MAIL QTY" 
l_col_names(3) = "MAIL QTY OVERRIDE" 
I_coI_names(4) - "LIST CATEGORY" 
l_coLnames(5) = "LIST NAME" 
l_coLnamcs(6) = "LIST SEGMENT" 
l_coLnames(7) - "LIST CPM" 
I_coI_names(8) - "LIST COST BASIS" 
l_col_names(9) - "LIST COST FACTOR" 
l_col_names(10) - "MERGE PURGE QTY" 
I_col_names(l 1) = "EXPENSE SET" 
l_coLnames(12) = "REVENUE SET" 
l_coI names(13) = "PACKAGE" 
l_coCnames(l4) = "SUBTOTAL FLAG" 
!_col_names(15) = "OPTIONAL EFFORT ID" 

l_query = "select " 

l_query = l_query & " FULL_PROMO_KEY ."'0 
l_query-l_query & " P_KEY_DESCR ,"*! 
l_query=I_query & " key_maiI_QTY ."'2 
l_query = Lquery & " MAIL_QTY_OVERRiDE ," '3 
1 query = I query & " LIST_CAT_NAME ," ' 4 

fquery - ! query & " UST_NAME ' 5 - CHANGE TO LIST NAME 

fquery - fquery & " LIST SEGMENT_NAME ," » 6 - CHANGE TO LIST SEGMENT 

fquery = fquery & " list_c3st_actual_cpm ,"' 7 - CHANGE TO LIST SEGMENT 

Lquery = l_query & " list_cost_basis 8 

l__query = l_query & " Iist_cost_factor ," ' 9 

l_query = I__query & " merge_purge_qty 10 

l_query = i_query & " e_set__name 1 1 

|__query = l_query & " r_set__name ,"*12 

l_query - Lquery & " PANEL_PKG ,"^3 

I query - {_qixcry & " SUBTOTAL_FLAG ,"14 

Lquery = Lquery & " 0PTIONAL_EFF0RT_ID,FULL_PR0MO_KEY, REC JD _ 
& " from Keys " _ 
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& " where rec_id = " & clng(I_rec_id) 
ifl_debug= I then 
for m = 1 to 1 5 

Response. write & m & " " & requestCP_" & m) & "<br>'' 
next 

Response. Write "<BR>'' 8l Lrecjd & "<BR> & Lquery & "<BR>" 
end if 

If (IsNumeric( l_recjd) ) then 

if I_action =^ "Update*' or I_action = "Delete" then 
* editAccept l_recjd, Ijaction, l_ColumnCount, I_setupTabLink,(_sp_edit 
' must skip 0 and 2 
1_0 = RequestCP_r) 
I_l = RequestCP_3-) 
l_2 = RequestCP_4") 
\J = RequestCP.S") 
1_4 = RequestC'PJ*') 
!_5 - RequestC'P_7'') 
i_6 = RequestfPJ^) 
\J = RequestCPj") 
IJ =Request(''P_10") 
I_9 - RequestCP_l r) 
1_10 - Request("P_12*') 
=RequcstCP_13") 
I_12 - RequestrP_14") 
i_i3 =RequestCP_l5'') 



objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = '•sp_edit_key'* 

objCMD.CommandType - adCmdStoredProc 
objCMD.Parameters.Refresh 

USER SUPPLIED 
if I_debug- 1 then 

Response. Write "<br>l " & LO 
Response. Write ''<br>2 " & !_! 
Response. Write ''<br>3 & validatePickList (1_2)' 
Response. Write ''<br>4 " & vaHdatePickList (I_3) 

Response, Write -<br>5 - & validatePickList (M) 
Response. Write ''<br>6 " & validateNumber {1_5) 
Response. Write '*<br>7 " & validatePickList (1^6) 
Response. Write "<br>8 " & validateNumber ( I_7) 
Response.Write Vbr>9 " & validateNumber ( 1_8) 
Response. Write "<br> 1 0 " & validatePickList (L9) 
Response. Write *'<br>n " & validatePickList (l_10) 
Response.Write "<br>12 * & validatePickList 1) 
Response.Write '•<br>13 " & validatePickList (l_12) 
Response.Write •'<br>14 " & L13 
Response.Write '•<br>i5 " & validatePickList (l_l) 

SUPPLIED BY ME 

end if 

objCMD.Parameters(l). Value = 1_0 

objCMD.Parameters(2).Value = VALIDATEnUMBER(l_l) 

objCMD.Parameters(3). Value = validatePickList (1_2) 

objCMD.Parameters(4).Value = validatePickList (L3) 
objCMD.Parameters(5). Value = validatePickList (I_4) 
objCMD.Parameters(6).Value ^ validateNumber (1_5) 

objCMD.Parameters (7).Value = validatePickList {I_6) 
objCMD.Parameters(8).Vaiue = validateNumber ( l_7) 
objCMD.Parameters(9).Value = validateNumber (!_8) 
objCMD.Parameters( 10). Value = validatePickList (l_9) 
objCMD.ParametersO l).Value = validatePickList {1_10) 
objCMD.Parameters(I2). Value ^ validatePickList (1_1 1) 
objCMD.Parameters(l3).Value = validatePickList (1_12) 
objCMD.Parameters( 14), Value = l_13 
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0bjCMD.Parameters(i5).VaIue = i_RecJd 
if l_action - "Delete** then 
• THis is the isDelete Parametere 

objCMD.Parameters( 16). Value - 1 

else 

objCMD.Paranieters(16). Value = 0 

end if 
ifi_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteQ 
Response.Redirect "adminkeysrightasp" 

end if 



else 



strSQL - l_query 



ObjRST.open strSQU strSQLOLEDB, adOpenStatic. adLockOptimistic 

If (ObjRST.EOF - False) then 
l_col_values(0)= ObjRST,Fields(0) 'key 

I_coLvaiues(l)= ObjRST.Fields(l) ' p_KEY_desc 
1 col_values(2)= ObjRST.Fields(2) 'MAIL^QTY 
rcoLvalues(3)- ObjRST-Fields(3) 'MAIL_QTY_0VERR1DE 
l_coLvalues(4) = ObjRST.Fields(4) ' LIST_CAT_NAME 
l_col_values(5) - ObjRST.Fields(5) ' UST_NAME 
l_col_values(6) - ObjRST.FieIds(6) * LIST_SEGMENT_NAME 

I_col_vaIues{7) - ObjRST.Fields(7) ' Ust_cost_actual_cpm 
l_coLvaIues(8) = ObjRST.Fields(8) * list_cost Jasis 
l_col_vaIues(9)- ObjRST,Fields(9) 'Ust_cost_factor 
l_col_values(10)= ObjRST.Fields(IO) 'merge_j)urge_qty 
l_coLvalucs(ll)- ObjRST.Fields(ll) 'e_set_namc 
LcoLvaIues(!2)== ObjRST.Fields(12) 'r_set_name 
I_coLvalues(i3) = ObjRST.Fie!ds(13) 'PANEL_PK:G 
l_coI_vaiues(I4) ^ ObjRSTJields(14) ' subtotal flag 
i_coI_values(15) ObjRST.Fields(15) ' optionaLcffortJd 
l_key - ObjRST.Fie1ds(''FULL_PR0MO_KEY'') 

if I_debug== i then 

l_col_values(0) 



Response. Write 
Response. Write 
'Response. Write 
'Response. Write 
'Response. Write 
'Response. Write 
Responsc.Write 
Response. Write 
Responsc.Write 
Responsc.Write 
Responsc.Write 
Responsc.Write 
Responsc.Write 
end if 

end if 

objRST.dose 
end if 



l_col_values(l) & ''<br>" 
l_coLvalues(2) & ''<br>*' 
l_col_values(3) & *'<br>'' 
Lcol_values(4) & '•<br>" 
l_col_values(5) & "<br>" 
l_coLvaIues(6) & ''<br>'' 
I_col_vaIues(7) & "<br>'' 
I_coLvaiues(8) & '•<br>'' 
l_coLvalues(9) & -<br>'' 
l_col_values(10) & ''<br>'' 
I_coLvaIues(l 1) & "<br>'' 
l_coI_values(12) & •*<br>'' 



end if 
fori^Oto 16 
ifi = 0 then 
I_col_types(i) = 0 
elseif i = 2 then 
l_col_types(!) = 0 
elseif i = 4 then 
l_coi_types(i) = 2 

l_col_descl(i)='' select list_cat_name from list_CATS where " _ 

& " PRODUCTJD='* & SessionfPRODUCTJD") & " order by list_cat_name ' 
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I_coI_desc2(i)="SELECT List Cat" 
elseif i ~ 5 then 
i_col_t>'pes(i) = 2 

I_coI_descl(i)="select list_Name from list_names where " _ 

& PRODUCTJD=" & Session("PRODUCTJD") & " order by list_name " 
l__col_desc2(iKSELECT List Name" 
elseif i = 6 then 
l_coI_typ€s(i) = 2 

l_col_descl(i)==''select Ust_segment_naine from list_segments where " _ 

& " PRODUCT JD='' & Session("PRODUCT_ID") & " order by Iist_segment_naine " 
!_coLdesc2(i)=''SELECT List Segment" 
elseif i-8 then 
l_col_types(i) ^ 3 

i_col_descl(i)="Mail Qty,Merge Purge Qty" 
l_col_desc2(i)-"SELECT List Cost Basis" 
elseif i = 1 1 then 
l_col_types(i) = 2 

l_coi_descl(i)-"se[ect e_set_name from EXPENSE_SETS where ** _ 

& PRODUCTJD=" & SessionCPRODUCTJD") & * order by e_set_name " 
I_col_desc2(i)=''SELECT Expense Ser 
elseif i = !2 then 
l_col_types(i) = 2 

l_col_descKi)="select r_set_naine from REVENUE_SETS where " _ 

& PRODUCT ID=" & Session("PRODUCTJD") & " order by r_set_name " 
I_coI_desc2(i)=-SELECT Revenue Set" 
elseif i= 13 then 
I coI_types(i) = 2 

rcol_descl(i)=="select package_name from PROD_PANEL_PACKAGE where _ 

& ** PRODUCTJD=" & SessionCPRODUCTJD") & " order by package_name " 
l_coLdesc2(iKSELECT Panel Pkg" 
elseif i= 14 then 
i_col_types(i) = 3 
l_col_dcsc 1 (i)="Tnie,False,SpIit'' 
l_col_desc2(i)="SELECT Subtotal Flag" 
else 

l__co!_types(i) = i 

l__col_descl(i>='' " 

l_col_desc2(i)='' " 

end if 

next 

• call setupTab's editmain to paint screen for user input 
editHeading l_fiie, l_fite, l_recjd 

• call setupTab's editmain to paint screen for user input 

editCompiex I^TitleJ.setupTabLink, " \ |_showPrevSelection,l_col_names,Lcol_values,Lcol_types, l_coI_descl ,Lcol_desc2, 
l_ColumnCount 

* call setupTab's editBottom to close body, html, form 
editBottom 

%> 
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cditiistcat.asp 

<%@ Language-VBScript %> 

<!-^/inciude file-*../support/g]obal_constants.asp" -> 

<!- ^include f[le="../support/dbConnection.asp" -> 

<i-#include fae="„/support/adoUtils.asp'' -> 

<!-#include file=".ysupport/srcTab.asp" -> 

<!- ^include file=",7support/setupTab.asp'* -> 

<% 

l_Co]umnCount = 2 
I_rec_id ^ RequestQueryStringCZ") 
If Request.Fonn("UPDATE,x") o then 
l_action - "Update" 

clself Request,form("DELETE.x") o then 
I_action = "Delete" 

end if 

l_sp_edtt = "sp_Edit_Prod_List_Car 
l_file = "editListCat.asp*' 

dim l_col_names(2) 
dim l_col_values(2) 
i_TiUe = '' List Category" 

l_setupTabLink = "setupListCat.asp" 
l_showPrevSelection= false 

l_coLnanies(0) = '^LIST CATEGORY" 
l_col_namcs(l) = "DESCRIPTION" 

|_query = "select LIST_CAT_NAME, LIST_CAT_DESCR " _ 
& " FROM List_cats "_ 
& " WHERE rec_id = " & cint(l_rec jd) 



' Response.Wrile I_recjd 
If (isNumeric( I_recjd) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAccept l_rec_id, I_action, I_ColumnCount, l_setupTabLink,i_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 
l_col_values(0) = ObjRST.Fie!ds(0) 

l_col_values(l)- ObjRST,Fields(l) 

end if 

objRSTxiose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, !_file, l_recjd 

'assign values to variables for setupTab's editMatn 



' call setupTab's editmain to paint screen for user input 

editMainLTitlea_setupTabLinkJ_showPrevSelectionJ_col_naniesJ_coLvalues,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editlistname.asp 

<%@ Language-VBScript %> 

<!- # include file='*,Ysupport/global_constants.asp" -> 

<!- # include ftle^^Jsupport/dbConnection.asp" --> 

<l- ^include file^^.ysupport/adoUtils.asp" -> 

<i- #include fiIe=''.7support/srcTab.asp'* -> 

<!- # include file="../support/setupTab.asp*' -> 

<% 

dim l_coi_names(2) 
dim !_coLvalues(2) 

IColumnCount = 2 
l_recjd = Request.QueiyStringCZ'') 
If Request.FormCUPDATE,x") o then 
Inaction = "Update" 

elself Request.formCDELETE.x") o then 
I_action = "Delete" 

end if 

I_sp_edit "sp_Edit_Prod_List_Name" 
l_file = "editListName.asp" 
l_Title = " List Name 
i_setupTabLink = -setupListName.asp" 
I_showPrevSelection= false 

l_coLnames(0) - "LIST NAME" 
l_coi_names(I) - "DESCRIPnON" 

l_query = "select L1ST_NAME, List_Name_description " _ 
& " FROM List_names " _ 
& " WHERE recjd - " & cint(l_recjd) 



* Response.Write Lrecjd 
If 0sNumeric( L^^ecjd) ) then 

if inaction = "Update" or l_action = "Delete" then 

editAccept l_recjd, l_action, l_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = I_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(O) 

i_coLvaIues(l)- ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



• call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitleJ_setupTabLinkJ_showPrevSeiection,i_coLnames,I_col_vahies,l_ColumnCount 
• call setupTab's editBottom to close body, html, form 
editBottom %> 
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editiistsegmentasp 



<%@ Language=VBScript %> 

<!" ^include fiIe="„/support/globai_constants.asp'' --> 

<!— #include fiie^^.Vsupport/dbConnection.asp" — > 

<!- #include fiie='*../support/adoUtiis.asp'* -> 

<!- #incJude rile="„/support/srcTab.asp" -> 

<!- #include file=*'../support/setupTab.asp*' -> 

<% 

l_CoiumnCount = 2 
l_recjd = Request QueryStringCZ") 
If Request Form(*'UPDATE.x") o then 
l_action - "Update" 

elself RequestfonnCDELETE.x") o then 
inaction = "Delete" 

end if 

l_sp_edit = '*sp_Edit_Prod_List_Segment" 
l_file = ''editListSegment.asp" 

dim l_co!_names{2) 
dim l_col_values(2) 
l_Title = " List Segment 

l_seiupTabLink = "setupListSegment.asp" 
I_showPrevSeiection= false 

l_col_names(0) = **LIST SEGMENT" 
l_col_names(I) - "DESCRIPTION" 

l_query = "select list_segment_name, Iist_segment_description " 
& " FROM List_Segments ** _ 
& " WHERE rec_id = " & cint(l_rec_id) 



' Response. Write Lrec_id 
If (IsNumeric( 1_rec_id) ) then 

if l_action ~ "Update" or l_action = "Delete" then 

editAccept i_recjd, l_action, l_CoIumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL ^ l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpen^tatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(0) 

I_col_values(l)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, i_rec_id 

'assign values to variables for setupTab's editMain 



* call setupTab's editmain to paint screen for user input 

editMain l_TitleJ_setupTabLink,l_showPrevSelection,l_co[_namesJ_col_valuesJ_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 



end if 
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editpanel.asp 

<%@ Language-VBScript %> 
<t- # include file=''../support/global__constants.asp" -> 
<i- #include fiie^*'../support/dbConnection.asp" -> 
<t-#include file=''../support/adoUtiis.asp" -> 
<t- #include file=''../support/srcTab.asp" -> 

<% 

l_debug = 0 

If RequestFormCUPDAmx") o then 

l_button-= "Update" 
elself Requestformf DELETE.X") o then 

I_button = "Delete" 
end if 

l_rec_id = Request. QueTyString("Z") 
'Response, Write Lrecjd 
If (IsNumeric( l_rec_id) ) then 
if L_button = "Update" or l_button = "Delete" then 

l_panei_name - Request("P_PANEL_NAME") 

l_panei_typc = RequestrP_PANEL_TYPE") 

I _panel_subtype =Request{"P_PANEL_SUBTYPE") 

I_test_type =Request("P TEST_TYP£") 

I j3aneI_offer =Rcquest("P_PANEL_OFFER") 

I _paneLoffer_price -Request("P_PANEL_OFFER_PRICE") 

l_panel_pkg =Requcst("P_PANEL_PKG") 

Ij3anel_premium =Request("P_PANEL_PREMIUM") 

i _paneLdate_start =Request("P„PANEL_DATE_START") 

l_paneLdate_end =RequestCP_PANEL,DATE„END") 

l_e set_name -Request("P_E_SET_NAME") 

l_r3et_name =Request("P_R_SET_NAME") 

I_newstand_sale_marker =Request("P_NEWSTAND_SALE_MARKER") 

objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp^editj^anel" 
USER SUPPLIED 
if l_debug^ ! then 
Response. Write "l_panel_name " & l_panel_name & "<BR>" 

Response.Write "I_panel_type " & I jjanel^type & "<BR>" 

Response. Write "l_panel_subtype " & lj3anel_subtype & "<BR>" 

Response.Write "ljest_type " & ljest_type &"<BR>" 

Response.Write "l_panei_offer " & l_paneLoffer & "<BR>" 

Response. Write "l_panei_offer_price " & i_panel_offer_price & "<BR>" 

Response. Write ''l_j)anel_pkg " i& l_panel_pkg & "<BR>" 

Response.Write "l_panel_premium " & lj)anel_prcmium & "<BR>" 

Response, Write "l_panel_date_start " & 1 janei_date_start & "<BR>" 

Response.Write "1 j)anel_date_cnd " & ! jjancMate^cnd & "<BR>" 

Response.Write "Le_set_name " & l_e_set_namc &"<BR>" 

Response.Write "l_r_set3iame " & I_r_set_namc & "<BR>" 

Response.Write "l_newstand_sale_marker " & l_,newstand_sale_marker & "<BR>" 

end if 

objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l). Value = l_panel_name 
objCMD.Parameters(2). Value = validateDate (i_panel_date_start ) 
objCMD.Parameters(3). Value ^ ValidaiePickList (lj>anel_type) 
objCMD.Parameters(4).Value = ValidatcPickList (l_panel_subtype ) 
objCMD.Parameters(5).Value = ValidatcPickList (l_test_type ) 
objCMD.Parameters(6). Value = ValidatcPickList (l_panel_pkg ) 
objCMD.Parameters(7). Value ^ ValidatcPickList (l_c_set_name ) 
objCMD,Parametcrs(8). Value ^ ValidatcPickList (l_r_set_name ) 
objCMD.Parameters(9). Value ^ ValidatcPickList (l_newstand_sale_marker) 
objCMD.Parameters(lO). Value = sessionfU") 

SUPPLIED BY ME 

objCMD.Paraineters(l 1). Value = l_rec_id 
if l_button = "Delete" then 
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' THis is the isDelete Parametere 

objCNtD.Parameters(l2). Value = 1 

eise 

objCMD.Parameters( 12). Value = 0 

end if 

Set TempNonSessionVar = objCMD.ExecuteQ 
ResponscRedirect "admin6a.asp?display=l " 

else 

1 action = false 

s&SQL = "select PA>JEL_NAME, PANEL_TYPE, PANEL_SUBTYPE, " „ 
& •* TESTJTYPE, PANEL_OFFER, PANEL_OFFER_PRICE. PANEL_PKG, " _ 
& " PANEL_PREMIUM, PANEL_DATE_START, PANEL_DATE_END, - _ 
& " E_SET_NAME, R_SET_NAME, newstand_sale_marker " _ 
& " from PANELS " _ 
& " where rec_id = " & cint{l_recjd) 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

If (ObjRST.EOF - False) then 
1 panel name - objRST.FieidsrPANEL_NAME-) 

i _paneLtype = objRST,FieldsrPANEL_TYPE'') 

1 _paneLsubtype ^obiRSTFieldsCPANEL^SUBTYPE") 

ljest_tv-pe =objRSTJiclds(n'ESTjrYPE'') 

1 _panel_offer =objRST.FieldsCPANEL_OFFER'') 

I_panel_offer _price =objRST.FieldsrPANEL_OFFER_PRICE'') 

l_panel_pkg -objRST.FieidsCPANEL^PKG") 

i _panel _premium -objRST.FieldsrPANEL_PREMIUM") 

l_paneLdate start =objRST,FieidsC'PANEL_DATE_START") 

1 _paneLdateIend -objRST.FieldsCPANEL.DATE.END") 

l_e set_name =objRST.FieldsrE_SET_NAME'') 

l_r3et_name -objRST.FieldsrR_SET_NAME") 

l_newsiand_saIe_marker^bjRST.Fieids("newstand_saIe_marker*') 

end if 

objRST.close 
end if 
end if 



%> 
<htnil> 
<head> 

<litle>IMT Network</title> 
</head> 

<body bgcolor="#99CCFF'' vUnk="000000" Unk="003366''> 
<%' Response. Write ''<BR>'' & !_panel_name 

Response.Write •<BR>'' & l_panel_type 
Response. Write *<BR>" & l_paneLsubtype 
Response.Write "<BR>'* & Ijest_type 
Response.Write ''<BR>'' & I j5aneI_offer 
Response.Write "<BR>'' & !_paneLoffer_price 

Response.Write -<BR>" & I _panel_pkg 
Response.Write ''<BR>'' & l_panel_premium 
Response. Write ''<BR>*' & l_panel_date_start 
Response.Write "<BR>" & l_panel_date_end 
Response.Write "<BR>" & l_e_set_name 
Response.Write "<BR>'' & Lr_set_name 
%> 

<form method^^posr action=''editPanel.asp?2=<%Response. Write Lrecjd %> " id=forml name-forml> 
<table width=''640'' border-'O" cellpadding=''2'*> 
<% prevSelections{5) %> 
<tr valign="top''> 

<td align=*'left- width=*'640'* colspan="3*'> 

<img src-"../graphics/editl222.gif' width="27" heighten 4"x/td> 
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</tr> 

<tr valign- 'top"> 
<td align="left" width="640** colspan="3''> 
<tab!e width^^SOO" border="0" censpacing="3" cellpadding=''2"> 
<tr vaiign="top*'> 
<td hei^t=*'25" align='*left"> 
<div a!ign='*!eft''x/div> 
</td> 

<td height=**25'' align=''leff> 
<input type=*IMAGE' Valuc^** UPDATE" Name=*'UPDATE'* 

src=".ygraphics/submitl222.gir width=*'54'' height=-l6" border="0**> 
<img src-",./graphics/bIankl222.gir width-"20** height='*16'' border=0> 
<SCRiPT LANGUAGE='*JavaScriptI.r> 

<!- Comment out saipt for old browsers 
fiinction confirm_deiete_panelO { 

return confirmCThis wi!i delete the panel and all its keys. This operation can not be undone. Are you 

sure you wish to delete this panel?**); 

} 

//-> 

</SCRIPT> 

<input type='IMAGE' Value-'DELETE" Name^-DELETE" 

src=".7graphics/deietel222.gir width^^SS** height^^ie** onClick=''retum confirm_deletej)anelO" border=0> 

<font face=*'Verdana, Arial, Helvetica, sans-serif* 
size-M"> 
<a href^"admin6a,asp''>Retum 
to Panel</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor=''003366'* height=''20*' width=''140" align=''centcr"> 
<div align=*'ccnter''> 

<font face-^Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF'*> 
<bxfont size==T> 

PANEL NAME 
</fontx/bx/fontx/div> 
</td> 
<TD align^"Ier> 

<%if not l_action then %> 
<mput type="TEXr* NAME='P_PANEL_NAME' 
id=<l value- <%Response. Write l_panel_name %>' max]ength=250> 

<% else 

Response. Write l_panel_name 
end if %> 

</id> 
</trxtr> 

<td bgcolor="003366*' height="20*' width-" 140" align=="center''> 
<div atign=*'center''> 

<font face-"Verdana, Arial, Helvetica, sans-serif color^''#FFFFFF"> 
<bxfont size="r> 

PANEL START DATE 
</fontx/bx/fontx/div> 
</td> 

<TD align="left"> 

<%if not Laction then %> 

<input type=''TEXT" NAME-'P_PANEL_DATE_STARr 
id=0 value='<%Response. Write l_panel_date_start %>'> 

<% else 

Response.Write l_paneMate_start 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366'* height="20" width="l40" align-''center**> 
<div aUgn="center**> 

<font face^"Verdana, Arial, Helvetica, sans-serif colot="#FFFFFF"> 
<bxfont si2e="r> 

PANEL TYPE 
</font></bx/fontx/div> 
</td> 
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<TD align=''left"> 
<%if not l_action then 
strSQL= "select PANEL_TYPE_NAME from CORP_PANEL_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox ofajRST, "p_panei_type",6, "SELECT TYPE", l_pane!_type 
objRSTxlose 
else 

Response. Write !_panel_type 
end if %> 

</td> 
</trxtr> 

<td bgcolor-''003366" height-"20*' width=''i40" align=''ceTiter"> 
<div align==='*center''> 

<font face^'^Verdana, Arial, Helvetica, sans-serif cotor=''#FFFFFF''> 
<bxfontsize=="r> 

PANEL SUBTYPE 
</fontx/b></fontx/div> 
</td> 

<TD aUgn="left''> 

<%if not ]_action then 

StrSQL = "select PANEL_SUB_TYPE_NAME from CORP_PANEL_SUB_TYPE'' 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "p_paneLsubtype",6, "SELECT SUB TYPE", l_j)anei_subtype 
objRSTxlose 
else 

Response, Write I_panel_subtype 
end if %> 

</td> 
</trxtr> 

<td bgcolor=''003366'' height='*20" width=*'i40" align=''center"> 
<div align-*'center''> 

<font face=='* Verdana, Arial, Helvetica, sans-serif color="#FFFFFF''> 
<bxfont size^'* r> 

PANEL TEST TYPE 
</fontx/b></fontx/div> 
</td> 

<TD aiign=='1eft"> 
<*'/oif not l_action then 

StrSQL - "select PANEL_TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "pjest_type",6, "SELECT TEST TYPE", l_test_type 
objRST.ciose 
else 

Response. Write l_test_type 
end if %> 

</td> 
</trxtr> 

<td bgcolor-"003366*' height="20" width^^HO" align="center"> 
<div align="center''> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont 5126=" r> 

PACKAGE 
</fontx/bx/fontx/div> 
</td> 

<TD aiign="left"> 



<%if not Inaction then %> 
<% StrSQL = "select PACKAGE_NAME from PROD_PANEL_PACiCAGE WHERE PRoduct_id & 
SessionCPRODUCTJD") 

objRST.open strSQL, strSQLOLEDB. adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "P_PANEL_PKG" & i,6, "SELECT PACKAGE", 

l_panel_pkg 

objRST.ciose 

%> 

<% else 

Response.Write l_panei_pkg 
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end if %> 

</td> 
</tr><tr> 

<td bgcolor="003366" height="20" width="140" aiign=''center"> 
<div align=''center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize=''r> 

EXPENSE SET 
</fontx/bX/fontx/d iv> 
</td> 

<TDalign=="left**> 



<%if not l_action then %> 
<% strSQL = "select e_set_name from EXPENSE_SETS where " _ 
& " PRODUCTJD-" & SessionCPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimisttc 

showQueryListBox objRST, '*p_E_SET_NAME" & i,6, "SELECT EXPENSE SET", LE_SET_NAME 
objRST.ciosc %> 

<% else 

Response. Write l_e_set_name 
end if %> 



</td> 
</trxtr> 

<td bgcolor-"003366" height="20" width="140" align="center"> 
<div align="center"> 

<font face="Verdana, Ariai, Helvetica, sans-serif coIor^''#FFFFFF"> 
<bxfont sizc='"r> 

REVENUE SET 
</fontx/bx/fontx/div> 
</td> 

<TD aiign=='*left''> 

<%if not Inaction then 

StrSQL - "select r_set_name from REVENUE_SETS where " _ 
& •* PRODUCTJ[)=" & Session("PRODUCT_ID") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

ShowQueryListBox objRST, '•p_r_SET_NAME",6, "SELECT REVENUE SET". 

1_R_SET_NAME 

obJRST.close 
else 

Response. Write 1_R_SET_NAME 
end if %> 

</td> 
<Jir> 

<tr> 

<td bgcolor="003366" height=''20" width="140" align-"center"> 
<div align="center"> 

<font face^"Verdana, Arial, Helvetica, sans-serif coIor=''#FFFFFF"> 
<bxfontsize="r> 

NEWSSTAND SALE 
</font></bx/fontx/div> 
</td> 

<TD align-"left"> 

<%if not i_action then 
dim vals 

vaIs = "N,Y" 

showLOVListBox vals, "P_NEWSTAND_S ALE_MARKER", 2, "~",l_newstand_sale_marker 
%> 



<% else 

Response. Write l_panel_date_start 
end if %> 

</td> 
</tr> 
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</tabIe> 

</td> 
</tr> 

</tabIe> 



<P> </P> 

</BODY> 
</HTML> 
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editpanelpackagcasp 

<%@ Language=VBScript %> 

<!" ^include file-"„/support/gIobai_constants.asp" ~> 

<i- #inciude rile=".7support/dbConnection.asp" -> 

<!- #include ftle="../support/adoUtiis.asp" -> 

<!- ^include ftle^^.ysupport/srcTab.asp" -> 

<!-#inciude fiie^^.Vsupport/setupTab.asp" ~> 

<% 

l_CoIumnCount = 2 
l_rec_id = RequestQueryString(*'Z'') 
If RequestFormC^UPDATE-x") o then 
Inaction = "Update" 

elself Request.formCDELETE.x") o **" then 
l_action = "Delete" 

end if 

l_sp_edit - "sp_Edit_Prod_Panel_Pack^e'' 
dim i_col_names(2) 
dim l_coI__vaIues(2) 
I_Title = " Panel Package " 
l_setupTabLtnk = "setupPanelPackage.asp** 
i_showPrevSelection= false 
!_file = "editPanelPackage.asp* 

l_coLnames(0) = "PANEL PACKAGE" 
l_col_names(l) - "DESCRIPTION" 

!_query = "select Package_NAME, PACKAGE_DESCRIPnON " _ 
& " FROM prod_panel_package " _ 
& " WHERE rec Jd = " & cint(l_recjd) 



' Response. Write l_rec_id 
If (lsNumeric( l_recjd) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAcccpt i_recjd, inaction, l_Co!umnCount, l_setupTabLink,l_sp_edit 

else 

strSQL = Lquery 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 
LcoLvalues(O) = ObjRST.Fields(O) 

!_coLvaIues(l)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 

editHeading l_file, l_file, l_rcc_id 

'assign values to variables for setupTab's editMain 

• call setupTab's editmain to paint screen for user input 

editMain l_TitIe,l_setupTabLink,l_showPrevSclection,l_col_names,l_col_vaIues,l_CoiumnCount 

* call setupTab's editBottom to close body, html, form 
editBottom %> 
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cditpancisubtvpe.asp 

<%@ Language=VBScript %> 

<!-#incIude file=".Jsupport/global_constants.asp" -> 

<!-^^inciude fiie=".ysupport/dbConnection.asp" -> 

<t- # include file^"„/support/adoUtils.asp" -> 

<!- #inciude riie=**../support/srcTab.asp'* -> 

<!-#mclude fiie=''.isupport/setupTab-asp'' -> 

<% 

l_Co!umnCount - 2 
l_rec Jd = Request-QueryStringCZ**) 
If RequestFormCUPDATE,x") o then 
l_action = "Update" 

elself Request.form("DELETE.x'*) o then 
I_action = "Delete" 

end if 

I_sp_cdit "sp_Edit_Corp_Panel_Sub_Type" 
dim l_coI_names(2) 
dim l_coi_values{2) 
i__Tit!e - "Panel Sub Type" 
i_setupTabLink = "setupPanelSubType.asp" 
i_showPrevSeIection= false 
l_fUc - "editPaneiSubType.asp" 

l_col_names(0) = "PANEL SUB TYPE" 
l_col_names(l) - "DESCRIPTION" 

I_query - "select PANEL_SUB JTYPE^NAME, PANEL_SUB_TYPE_DESCR " _ 
& " FROM corp_panel_sub_type "_ 
& " WHERE recjd = " & cint(UecJd) 

' Response. Write i_recjd 
If (IsNumeric( l_recjd) ) then 

if l_action = "Update" or l_action = "Delete" then 



editAccept l_rec_id, l_action, l_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = Lquery 

ObjRST.opcn strSQL, suSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
I_col values(0)-ObjRST.FieIds(0) 

I_col_values(l)- ObjRST.Fields(l) 

end if 

objRSTxlose 
end if 

end if 



• call setupTab's cditmain to paint screen for user input 
editHeading l_file, l_file, !_recjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain !_Title,LsetupTabLink,l_showPrevSelection,l_col_names,l_col_values,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneltcsttvpe.asp 

<%@ Language=VBScript %> 

<!--#indude file=".7support/gIoba[_constants.asp'* -> 

<!- # include fiie^^.Vsupport/dbConnection.asp" -> 

<!-#incIude file=^".7support/adoUtiIs.asp" -> 

<!- ^include fiIe=''../support/srcTab.asp" -> 

<!- # include fiie^^.Vsupport/setupTab.asp" -> 

<% 

l_CoIumnCount - 2 
l_rec_id = Request.QueryStringCZ") 
If RequestFormCUPDAmx") o then 
l_action = "Update" 

elself Request. formCDELETE.x") o "** then 
l_action = "Delete" 

end if 

Lsp.c'ii^ = "sp_Edit_Corp_Panel_Test__Type" 
dim l_col_naines(2) 
dim I_col_values(2) 
l_TitIe = "Panel Test Type" 
l_setiipTabLink =^ "setupPancITestType.asp" 
l_showPrevSeiection= false 
l_file = "editPanelTestType.asp" 

l_col_names(0) = "PANEL TEST TYPE" 
l_col_names{l) = "DESCRIPTION" 

l_query = "select PANELJTEST^TYPE^NAME, PANEL_TEST_TYPE_DESCR " . 
& " FROM corp_paneiJest_type "„ 
& " WHERE recjd = " & cint(l_recjd) 

' Response. Write Lrecjd 
If (IsNumeric( l_rec Jd) ) then 

if l_action = "Update" or I_action = "Delete" then 



editAccept Lrecjd, l_action, i_ColumnCount, l_setupTabLinkJ_sp_edit 
else 

strSQL = l_query 

ObjRST.opcn strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(O) 

LcoLvalues(I) = ObjRST.Fields(l) 

end if 

objRSTxIose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, I_file, l^recjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_Title,l_setupTabLink,l_showPrevSelection,I_col_names,l_col_vaIues,l_CoIumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneitvpe.asp 

<%@ Language= VBScript %> 

<!- #inc[ude fi!e^"../support/gIobal_constants.asp" -> 

<!-#include fiie^\7support/dbConnection.asp" -> 

<!- # include file^^Jsupport/adoUtils.asp" -> 

<l- #include file=''../support/srcTab.asp'' -> 

<!- ^include file="../support/setupTab.asp" -> 

<% 

I_CoiumnCouTit = 2 
l_recjd = Request.QueryStringCZ") 
If RequestFormfUPDATEx-) o then 
I_action = "Update" 

elself RequestformC'DELETE.x") o then 
I_action - "Delete** 

end if 

Lsp_e<iit = "sp_Edit_Corp_Panel_Type*' 
dim l_coI__names(2) 
dim t_col_values(2) 
LTitle - "Panel Type" 
l_setupTabLink = "setupPanelType.asp" 
ljshowPrevSelection= false 
I_file = "editPanelType.asp" 

l_coLnames(0) = TANEL TYPE" 
l_coI_names(l) = ^'DESCRIPTION" 

l_query = '^select PANEL_TYPE_NAME, PANEL_TYPE_DESCR " _ 
& " FROM corp_panel_type ** _ 
& " WHERE recjd = " & cim(l_recjd) 

* Response. Write l_recjd 
If (isNumeric( I_recjd) ) then 

if l_action = "Update" or t_action = "Delete" then 



editAccept l_recjd, l_action, l_ColumnCount, I_setupTabLink,l_sp_edit 
else 

strSQL = i_queTy 

ObjRST.open strSQL, strSQLOLEDB, adOpen^tatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.FieIds(0) 

l_coLvaiues(l) - ObjRST.FieIds{l) 

end if 

objRSTxlose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rccjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_Title,l_setupTabLink,l_showPrevSelection,!_col_names,l_col_values,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpriorsrcdescasp 

<%@ Language-VBScript %> 

<!- # include fiIe="../support/gIobai_constants.asp" 

<!- # include file=''.ysupport/dbConnection.asp" -> 

<!-#include f^le-^7support/adoUtils.asp'' -> 

<!- # include file^^Jsupport/srcTab.asp" -> 

<!- ^include file=".7support/setupTab.asp*' -> 

<% 

dim I_coI_names(8) 
dim I_col_vaiues{8) 

ICoIumnCount - 8 
l_recjd - RequestQueryStringCZ") 
If Request.FormCUPDATE.x") o then 
l_action ~ ^'Update" 

elseif Request formCDELETEx") o then 
l_action== -Delete- 

end if 

l_recjd - Request.QueryStringC'Z*') 
l_sp_edit = '*sp_edit_prior_Source_desc'' 
l_fjle= "editPriorSrcDesc.asp" 
l_TitJe = "Prior Source Description*' 
l_setupTabLink = "setupPriorSrcDescasp" 
!_showPrevSelection- false 

! query = "select prior^sourcejdentifier, prior_source_desc, bilHng_cur_src_desc, model_source_cat, 
model_source,agent_src_desc , valid_from_date , " _ 

& " valid_to_date " _ 

& FROM Prior_source_desc " _ 

& WHERE rec Jd = " & cint(l_rec_id) 

if (l_action = "Update" or l_action ^ "Delete") and isnumeric(l_rec_id) then 

•editAcccpt Lrec_id, inaction, l_ColumnCount, I_setupTabLink,!_sp_edit 

prior_sourceJdentifler = request.fonn("P_0") 

prior_source_desc = request.form{"P_r) 

btlling^cur_src_desc = requestfonn("P_2") 

model_source_cat = request. form("P_3") 

model_source - request. form("P_4") 

agent_src_desc = request. form("P_5") 

valid_from_date = rcquest.form("P_6") 

vaiid_to_date = request.form(''P_7") 

*response.write(prior_source_identifier & "<br>") 
'response.write(priorjsource_desc & '•<br>**) 
'response. write(billing_cur_src__desc & ''<br>") 
'response. write(model_source_cat & "<br>") 
'responsc.\vrite(model_source & "<br>") 
'response. write(^ent_src_desc & "<br>'') 
'response. write(vaIid_from_date & ••<br>'') 
'response. write(valid_to_date & ''<br>'') 
'response.write(l_action) 
'response.write(l_recJd) 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_prior_source_desc'' 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

objCMD.Parameters(l). Value - prior_sourceJdentifier 
objCMD.Parameters(2). Value = prior_source_desc 
objCMD.Parameters(3).Value = btiling_cur_src_desc 
objCMD.Parameters(4). Value = model_source_cat 
objCMD.Parameters(5). Value model^source 
objCMD.Parameters(6). Value = agent_src_desc 

if valid_from_date > " " then objCMD.Parameters(7). Value = valid_fi-om_date else objCMD.Parameters(7). value = null 
if vaIid_to_date > " " Then objCMD.Parameters(8). Value = valid_to_date else objcmd.Parameters(8). Value = null 
objCMD.Parameters(9). Value = l_rec_id 
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if liaction='*Update" then objCMD,Parameters( 10). Value = 0 
if l_action="Delete*' then objCMD.Parameters( 10). Value = 1 
Set TempNonSessionVar = objCMD-ExecuteQ 
Response.Redirect l_setuptabhnk 

efse 

strSQL==l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) and isnumeric(l_recjd) then 

prior_sourceJdentifier = objRST("prior_sourceJdentirier") 
prior_source_desc = objRSTCprior_source_desc") 
biIUng_cur_src_desc ^ objRST("biIIing_cur_src_desc") 
model_source_cat = objRSTCmodeLsource^cat") 
modeI_source = objRST(*'model_source") 
agent_src_desc = objRST("agent_src_desc'') 
vaIid_from_date = objRST("va!id_from_date'') 
vaIid_to_date = objRST(>alidjo_date") 

end if 
objRST.close 
end if 



%> 

<htm1> 
<head> 

<titIe>You are on editPriorSrcDesc.asp</titlex/head> 

<body bgcolor=''#99CCFF'' vlink="000000" link="003366*'> 

<form method^^post" action=''editPriorSrcDesc.asp?Z=<%=I_recJd%>''> 



<table BORDER-''0''> 



<tr valign=*'top''> 

<td align^^left" width=-640'' coIspan=''3"> 

<img src=="../graphics/editl222.gir width='*27" height-" 14''> 

</td> 

</tr> 
<tr vahgn="top''> 

<td align-^left" width=''640*' coIspan="3"> 

<table widths" 500** border='*0'' ceUspacing=''3'* ce!Ipadding=''2'*> 

<tr vaiign^"top"> 

<td height="25'' aiign="left''> 

<div align=-left''x/div> 

</td> 

<td height="25" ali^="left''> 

<input type="IMAGE" Value='*UPDATE'' Name-" UPDATE" 
3rc=".7graphics/submitl222.gir width-"54" height-" 16" border="0"> 

<img src=".ygraphics/blankl222.gir width="20" height^^ie" 

border=="0"> 

<inputtype="IMAG£" Value-^DELETE" Name-"DELETE" 
s^c-^yg^aphics/deletei222,gi^ width="53" height-" 16" bordeT-"0"> 

<br> 

<font face-" Verdana, Arial, Helvetica, sans-serif size-"^"> 
<a href^"setupPriorSrcDesc.asp">Retum to Prior Source 

Description Setup Table</a> </font> 

</td> 

</tr> 
<tr> 

<td bgcolor-"003366" height="20" width-" 140" align="center"> 
<div align="center"> 

<font face-"Verdana, Arial, Helvetica, sans-seriP 

coIor="#FFFFFF"> 

<bxfont size-" I ">PRIOR SOURCE 

IDENnFIER</fontX/bx/fontx/div> 

</td> 

<td align-"LEFT"> 

<font face-" Verdana, Arial, Helvetica, sans-serif 

color-"#FFFFFF"> 
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value=*'<%=pnor_source_identifier %>"> 



</tr> 
<tr> 



color-''#FFFFFF"> 
DESC</fontx/bx/fontx/div> 

color="#FFFFFF"> 
va[ue=*'<%=prior_source_desc%>"> 



</tr> 
<tr> 



color=''#FFFFFF"> 
DESC</fontx/bx/fontx/div> 

color=''#FFFFFF"> 

value=*'<%=b ill ing_cur_src_desc%>"> 



</tr> 
<tr> 



color=''#FFFFFF"> 

CATEGORY</tbntx/bx/fontX/div> 
color-'*#FFFFFF> 



<input type="TEXT" NAME=''P_0" id^T.O" 
</font> 



</td> 



<td bgcolor=''003366" height-"20" width="l40'' aiign="center''> 
<div align=''center"> 

<font face=*' Verdana, Aria!, Helvetica, sans-serif 
<bxfont si2e=T>RENEWAL PRIOR SOURCE 

</td> 

<td align="LEFT"> 

<font face^^Verdana, Arial, Helvetica, sans-serif 

<inputtype=''TEXT'* NAME=*'P_1'' id='*P_r 

</font> 
</td> 



<td bgcolor=*003366" height=''20" widlh^^UO" aIign="center-> 
<div aiign=''center''> 

<font face^^Verdana, Ariai, Helvetica, sans-serir 
<bxfont size-" I '•>BILLINGS CURRENT SOURCE 

</td> 

<td aUgn='*LEFT''> 

<font face=''Verdana, Arial, Helvetica, sans-serif 

<input type-"TEXT'' NAME='*P_2" id=''P_2'* 

</font> 

</td> 



<td bgcolor=''003366'* height=**20" widlh="I40'' aiign="cenler"> 
<div align=''center*'> 

<font face=''Verdana, Arial, Helvetica, sans-serif 
<bxfont size-T>MODEL SOURCE 

</td> 

<td aIign=''LEFT"> 

<font face-^Verdana, Arial, Helvetica, sans-serif 



<SELECT name-TJ'* id-"P_3"> 
<% strSQL - "select src__cat_name from src_category where 

product id = " & SessionrPRODUCT ID") & " order by src_cat_name" 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, 

adLockOptimistic 

while notobjRST.eof 

response. writeC<OPTION ") 

if objRST(O) - modeI_source_cat then response.write f 

selected ") 

response.write f value-" & objRST(O) & & 

objRST(O) & •*</OPTION>") 

objRST.movenext 

wend 

objRSTxlose 
%> 

<%'<input type="TEXT" NAME-"P J" 

value="<%=model source_cat%> 
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</font> 



<Jtd> 



</tr> 
<tr> 



coIor="#FFFFFF"> 

DESCRIPTION</font><^x/fontx/div> 

color=''*FFFFFF"> 
vaJue=''<%=model source%>''> 



</tr> 
<tr> 



color=''#FFFFFF"> 

DESCRIPTION</fontx/b></fontx/div> 

coiof-"#FFFFFF''> 
vaiue=*'<%^agent_src_desc%>"> 



</tr> 
<tr> 



color="J^FFFFFF'*> 
DATE</fontx/b></fontX^div> 

coior-*'#FFFFFF''> 
value=*'<%=^a(id from date%>''> 



<td bgcolor="003366" height=*'20" width^**140" align=''center''> 
<div altgn=''center"> 

<font face="Verdana, Arial, Helvetica, sans-serif 
<bxfonl size=" 1 ">MODEL SOURCE 

</td> 

<td aUgn-''LEFT*'> 

<font face="Verdana, Ariai, Helvetica, sans-serir 

<inputtype-"TEXr NAME=''P_4" id="P_4" 

</font> 

</td> 



<td bgcolor=*'003366" height='*20'' widths" 1 40" align=''center"> 
<div align-"center'*> 

<font face^^'^Verdana, Arial, Helvetica, sans-serir 
<bxfont size=T>AGENT SOURCE 

</td> 

<td aIign=-LEFr''> 

<font face-^Verdana, Arial, Helvetica, sans-serir 

<input type=*'TEXT'' NAME=*'P_5*' 

</font> 

</td> 



<td bgcolor=''003366*' height=''20" width^^^MO" aJign=-centef''> 
<div align=*'center"> 

<font face=''Verdana, Arial, Helvetica, sans-serir 
<b><font size="r>VALID FROM 

</td> 

<td aiign=''LEFT''> 

<font face="Vcrdana, Arial, Helvetica, sans-serir 



<input type="TEXT" NAME="P_6" 
</font> 



<td> 



</tr> 
<tr> 



color=''#FFFFFF"> 

color=-#FFFFFF"> 
vaiue="<%=^alid to date%>"> 



<td bgcolor="003366'' height="20" width=*''l40" align=*'centcr"> 
<div align="center''> 

<foni face^^Verdana, Arial, Helvetica, sans-serir 

<bxfont stze=T> VALID TO DATE</fonP</bX/fontx/div> 

</td> 

<td aiign=*'LEFT'*> 

<font face^" Verdana, Arial, Helvetica, sans-serir 

<input type-^TEXr NAME="P_7" 

</font> 
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</td> 

</tr> 

</t2ble> 

<n*D> 

</TR> 
<n'ABLE> 
</fonn> 
</body> 
</html> 
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edttrsetasp 



<%@ Language=VBScript %> 



<!- # include file^". /support/giobal_constants.asp'* -> 
<!- #include file="../support/dbConnection.asp'* -> 
<1- # include file="../support/adoUtils.asp'' -> 
<!- # include fiIe=",ysupport/srcTab,asp" ~> 
<!- ^include flle=^7support/pickListObj-asp'• -> 
<l- #include file=",7support/JavaScripts.asp" -> 

<% 

dim DEBUG 
DEBUG - false 

dim IJabei(IO) 
dim l_values(33) 
•dim !_basis_opt(i0)(7) 

l_label(0) = **Sub Revenue** 

ijabei(l) = "Ad Revenue" 

IJabe!(2) = "List Rental Revenue" 

ljabel(3) = "Other Revenue" 

!_rec_ID = Request.Quer>'String("Z") 



If RequestFormCUPDAmx") o then 

l_action = "Update" 
ciself Request. form("DELETE.x") o "" then 

I_action= "Delete" 
else 

l_action = "x" 

end if 



'Response. Write "Hate " & l_aaion 

If l_action "Update" or l_action = "Delete" then 

* Response. Write "Save or Delete Invoked" 
'if Request. Form("P_RECJD") > " " then 

l_rec Jd = Request("P_REC_ID") 

* Response. Write "<BR>Rec id=" & I_rec_id & "-" &Request("P„REC JD") & "-<BR>" 
fori = Oto 7 

l_values(i) = Request, Form("P_" & i ) 

next 

I_r_set_name = RequestFonn("P_R_SET_NAME") 

'onse, Write "<BR>Rec id " & RequestForm("P_R_SET_NAME") & "<BR>" 
if l_r_set_namc > " " then 

objCMD, ActivcConnection strSQLOLEDB 

objCMD.CcmmandText = '•sp_editj?rod_r_set" 

objCMD.CcmmandType = adCmdStoredProc 

objCMD.Parameters.Refresh 
USER SUPPLIED 

objCMD,Parameters(l). Value - Session("PRODUCTJD") 

objCMD.Parameters(2). Value =i_r_set_name 

for k = 0 to 7 

IF DEBUG -TRUE THEN 
Response. Write (k +3) & " " & k & " " & Lvalues(K) & "<br>" 
ENDIF 

Response. Write "<BR>l_vaiue " & I_values(k) & "<BR>" 
ifk mod 2 = 0 then 

objCMD.Parameters(k + 3). Value - validateNumber(l_values(k)) 
else 

objCMD.Parameters(k + 3).VaIue = validatePickList(l_values(k)) 
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end if 
next 

Response. Write k 



Response, Write "<BR>Rec id " & Lrecjd & •*<BR>" 
objCMD.Parametefs(U), Value = 



\ rec id 



if l_action =^ "Delete" then 

objCMD.Paraineters(12).Value = I 
else 

objCMD.Parameters( 12). Value = 0 
end if 

Set TempNonSessionVar ^ objCMD.ExecuteQ 



end if 

'end if 

Response.Redirect "setupRset.asp" 
eise 

l_action ~ "Edit" 
' Response. Write " Edit Invoked'' 
strSQL^ "select 

& " product_id rO, " _ 

& '•r_set_name rl," _ 

& '•subs_rcvenue r2,'' _ 

& •'subs_cpm_cpu r3." _ 

& ''ad_revenue r4,'' _ 

& ''ad_cpm_cpu rS," _ 

& ''listrental_revcnue r6/ _ 

& *'listrental_cpm_cpu r?/ _ 

& -other_revenue rS,** _ 

& ''other_cpm_cpu r9'' _ 

& * from rcvenue_sets " _ 

& "where rec_id = " & l_recjd 

• Response. Write strSQL 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
l_product_id = ObjRST.fie!ds{0) 
L_r_set_name = ObjRST.fieldsO) 
for i = 0 to 7 

l_values(i) - ObjRST.fieMs(i + 2) 
' Response.Write i + 1 & " " 
next 

ObjRST.close 
end if 

'Response.Write "Hate " & l_action 
%> 

<HTML> 
<HEAD> 
<title>editRsetasp 
</title> 

<META NAME="GENERATOR" Content=" Microsoft Visual Studio 6.0"> 
<mEAD> 

<script language=*'JavaScript"> 
<t_ 

function MM_swapImgRestoreO { //v2,0 
if (document.MM_swapImgData != null) 
for (var i=0; i<(documentMM_swapImgData. length- 1 ); i+=2) 
document.MM_swap!mgData[i],src = documcntMM_swapImgData[i+l]; 

} 

function MM_preloadImagesO { //v2.0 
if (document. images) { 

var imgFiles = MM_preIoadImages.arguments; 

if (document.preloadArray=null) document.preloadArray - new AirayO; 
var i = documentpreload Array, length; 

with (document) for (var j=0;j<imgFi!es. length; j-H-) if (imgFilesO].charAt(0)!="#"){ 
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preloadArTay[i] = new Image; 
preloadArray[i++].src = imgFilesO]; 
}} 

} 

function MM_swapImageO { //v2,0 

var i j=K),objStr,obj,swapArray=new AiTay,oi<lArray=document MM_swapImgData; 
for (i=0; i < (MM_swaplmage,arguments.length-2); i+=3) { 
objStr = MM_swapImage,arguments[(navigator.appName — 'NetscapeOViit+l]; 
if ((objStr.mdexO^documenLlayers['>=0 && document.layers=nuil) || 
(objStr.indexOfCdocumentalin ==-0 && documenLall -=nuU)) 
objStr = *documenf+objStr.substring(objStrJastIndexOfC;XobjStrJength); 
obj = cvaI(objStr); 
if{obj !-nuU){ 
swapArTay[j-H-] = obj; 

swapArraylj-^^] = (oldAiray— null |1 oIdArrayO-lli=obj)?obj.src:oldArray[j]; 
obj.src = MM_swapImage.arguments[i+2]; 

d(>cument.MM_sw^lmgData ^ swapAaay; //used for restore 

} 

//-> 

■^/script?" 

<body bgcoloi-"#99CCFF'' vlink^-000000" Hnk=''003366"> 



<fonn method=''post'' action=*'editRSetasp'' id=forml name=forml> 
<% If l_rec JD > then %> 

<Inputtype--HIDDEN" name=''P_RECJD*' value-*<% Response. Write !_rec_id %>*> 
<% end if %> 
<a"ABLE BORDER=0 width^-Sl T > 

<tr vaHgn=''top"> 
<td aiign-'left" co!span="3- height=*'20"> 
<tab!e width-" 100%" bordei-'O" censpacingp'O" cellpadding="0''> 
<tr> 

<td width-"25%''ximg src-"-ygraphics/editi222.gir width="27*' height=''14''X/td> 
<td width=''35%"> </td> 
<td width=''70*' align=''right''> 
<div align=''right''> </div> 
</td> 

<td width^"?©" aiign=''right'*> 
<div align=''right''> </div> 

</td> 
</tr> 
<tr> 

<td width=''25%''> </td> 
<td width=*'35%''> </td> 
<td width^^TO" align=''right''> 
<input type=*IMAGF va]ue--UPDATE" namc=-UPDATE" 

src=rygraphics/submitl222.gir width-''54** height^^e" border=^"0*'> 

</td> 

<td width^-TO" align=-right''> 

<input type='IMAGE' vaIue=="DELETE'* name="DELETE*' 

src=\./graphics/deletel222.gir width=*'53" height="16" border="0''> 
</td> 
</tr> 
<tr> 

<td width="25%"> </td> 

<td width="35%'' colspan=''3- align=-right" height="24'* valign=''bottom"> 
<div aiign="righf*><font face^'*Verdana, Arial, Helvetica, sans-serif size-M"xa href="setupRset.asp''>Retum 

to Revenue Set Setup TabIe</aX/fontx/div> 
</td> 
</tr> 
</tabIe> 
</td> 
</tr> 
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<tr> 

<td width="i50" align-" center" height="lO"> </td> 

<rrD a]ign="LEFT" height-" iO*'>(fenbsp;</td> 
</tr> 
<tr> 

<td bgcolor^^OOSSee" height-^aO" width=*'109'* aiign='*center"> 
<font face^^Verdana, Ariai, Helvetica, sans-serif coIor=''#FFFFFF"> 
<bxfontsize=T> 
Revenue Set 

</fontx/b></fontx/td> 
<td coIspan=="2''> 
<input type=*'TEXT" name='p_r_set_name' 

id=0 va]ue='<%Response. Write I_r_set_name %>* size=*27"> 

</td> 
</tr> 
<% 

for i=0 to 3 
%> 
<tr> 

<td bgcolor="003366'' height^^aO" width=''109'' align-''center''> 
<font face="Verdana, Arial, Helvetica, sans-scrir color-''#FFFFFF''> 
<bxfontsi2e=''r> 
<% 

Response. Write [Jabel(i) 
%> 

</fontx/bX/fontx/td> 
</td> 
<% 

forj^Oto 1 
in_cnt= i * 2 + j 
%> 

<td> 

<% if j = I then %> 

<SELECT name- P_<%Response.write in_cnt %>*> 
<% if l_values(in_cnt) = TPM*' then %> 
<OPTION value=0>CPM or CPU 
<OPTION value ='CPM'seIected>CPM</option> 
<OPTION value ='CPU' >CPU</option> 
<% elseif l_values(in_cnt) = "CPU" then %> 

<OPTION vaiue=K)>CPM or CPU 
<OPnON value ='CPM*>CPM</option> 
<OPTION value ='CPU' selected>CPU</option> . 
<% else %> 
<OPTI0N vaJue=0>CPM or CPU 

<0PT10N value =='CPM*>CPM</option> 
<OPnON value ='CPU'>CPU</option> 
<%ENDIF%> 
</Select> 

<%elseifj = 2then%> 

<% else %> 

<input type=-TEXT" NAME='P_<%Response. write in_cnt %>' 
<%ifl_action="Edit"then %> 

vaIue='<%Response.Write l_values(in_cnt) %>* 
<%end if %> 
size -12> 
<%end if%> 
</td> 

<% next %> 

</tr> 

<%next %> 

</table> 

<p> </p> 
</form> 
</BODY> 
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</HTML> 
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editsource.asp 

<%@ Language^ VBScript %> 
<1- #inc!ude flle=^7suppo^t/global_constants.asp*' -> 
<i- #include flle=^./suppo^^/dbConnection.asp'• -> 
<i_ #inciude file^^.Vsupport/adoUtiis-asp" -> 
<!- ^/include file=".isupport/srcTab-asp'* -> 

<% 

If RequestFormCUPDATE.x") o then 

l_button = "Update" 
elscif Request formCDELETE.x") o then 
l_button = "Delete" 
end if 

l_recjd = RequestQueryStringC'Z") 
'Response. Write Lrec_id 
If (IsNumeric( l_recjd) ) then 
if l_button = "Update" or l_button = "Delete" then 
l_action ~ true 

l_source = RequestFonn{"P__SOURCE") 
Lsrcjnd - RequestForm("P_SRC_IND") 

objCMaActivcConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_source" 
objCMD.CommandType ^ adCmdStoredProc 
objCMD.Parameters-Refrcsh 
objCMD.Parameters(l).Vaiue = l_source 
objCMD.Parameters(2). Value = l_src_ind 
objCMD.Parameters(3). Value = SessionfU") 
objCMD.Parameters(4). Value = cint(l_recjd) 
if I_button = "Delete* then 
objCMD.Parameter5(5). Value = 1 
else 

objCMD.Parameters(5). Value = 0 
end if 

Set TempNonSessionVar = objCMD.ExecuteQ 
Response.Redirect "admin4a.asp?display= I " 

!_action = true 

l_source - Request.Fomi("P_SOURCE") 
l_srcjnd = Request.Form{"P_SRC_IND") 

else 

l_action = false 

strSQL = "select SOURCE_,NAME. SRC_INDICATOR from SOURCE where " ^ 
& " recjd - " & Lrec Jd 
ObjRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 
Lsourcc - ObjRST.Fields("SOURCE_NAME") 
Lsrcjnd = ObjRST.Ficlds("SRC_INDICATOR") 
end if 

ObjRST.close 
end if 
end if 



%> 
<html> 
<head> 

<title>EditSource,asp</tiUe> 
</head> 

<body bgcolor="#99CCFF" vlink="000000" Iink=^'*003366"> 
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<fonn method="posr action-''editSource,asp?Z=<%Response.Write l_rec_id %> " id=forml name=forml> 
<tabie width=''640'' border=''0" cellpadding="2"> 
<% prevSelections(3) %> 

<tr valign-''top*'> 

<td align-'^ieft" width-''640" coIspan-"3''ximg src=",-/graphics/edill222.gir width=**27" height-" I4"x/td> 
</tr> 

<tr vaItgn="top**> 

<td align=^ler width=''640" coIspan="3"> 
<tabie width-'*500" border=*'0'* cellspacing="3" cellpadding="2"> 
<tr vaiign==''top''> 
<td height="25" align=='*left*'> 
<div align=^''left''x/div> 
</td> 

<td height=''25" aiign=-Ieft"> 

<input type='IMAGE' Value^^UPDATE" Name^'^UPDATE'' 
src-".7graphics/submitl 222.gif width-^SA" heighc="l6" border=-0"> 
<imgsrc-"../graphics/blankI222.gir width=''20" height=M6" borderK)> 
<%' <inputtype='IMAGE' Value="DELETE'' Name=''DELETE" 

'src-rVgraphics/deletel 222,gir width-^SS" height^" 1 6" border-0> %> 
<font face-^Verdana, Ariai, Helvetica, sans-serif size==**-4"> 
<a href="admin4a,asp''>Retuni 

to Source</aX/fontx/td> 
</tr> 
<tr> 

<td bgcolor=''003366*' height="20" width-" 140" align=''center'*> 
<div align=''center**> 

<font face="Verdana, Arial, Helvetica, sans-serif color=''#FFFFFF''> 
<bxfont si2e=''r> 
SOURCE NAME 
</fontx/bX/fontx/div> 
</td> 

<td bgcolor=''#99CCFF" height="20'* width="360" aiign-"leff > 
<dtv align="!eft"xfont face='' Verdana, Arial, Helvetica, sans-serif color="^#FFFFFF''xbxfont size-T 
color=-#000000"> 
<%if not l_action then 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, -P_S0URCE\6, "SELECT SOURCE^ l_source 
objRST.close 
else 

Response. Write l_source 
end if %> 
</fontx/bx/fontx/div> 

</td> 
</tr> 
<tr> 

<td width-" HO*" bgcolor==''^/003366'' height="20^ align=''center''> 

<div aIign-''ccnter''xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont si2e=T>S0URCE 
INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width=''360" bgcoIor="#99CCFF'' height="20" aiign-^eff > 
<div align^^left" xfont face-" Verdana, Arial, Helvetica, sans-serif color-"#FFFFFF'*xbxfont sizc-T 
color="#000000"> 

<%if not l_action then %> 

<input type-'-TEXT" NAME='P_SRC_rND' 

id=0 value='<%Response. Write l_src_ind %>' maxlength="30" size="6"> 
<% else 

Response. Write l_src_ind 

end if %> 
</TD> 



</fontx/bx/fontx/div> 
</td> 
</tr> 
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</table> 
</td> 
</tr> 
</tabIe> 
</form> 
</body> 
</htmi> 
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editsourcename.asp 

<%@ Language=VBScript %> 

<!- include rile=''.7support/g!obal_coiistants.asp'' -> 

<!-#inciude fiIe='*.7support/dbConnection.asp" -> 

<!- # include fi[e="../support/adoUtils.asp** -> 

<!-#include file=\./support/srcTab.asp" -> 

<[- ^include fiie=".7support/setupTab.asp" -> 

<% 

dim l_co!_names(2) 
dim I_col_vaiues(2) 

I^ColumnCount = 2 
Treajd = RequestQueryStringCZ") 
If RcquestFormCUPDATE.x") o then 
inaction = **Update" 

elself Request.formCDELETE.x") o then 
l_action = "Delete" 

end if 

I_sp_edit = •'sp_Edit_Source_Description'' 
i_file = "editSourceName.asp** 
l_Titie = "Source Description** 
l_setupTabLink = "setupSourceNamcasp" 
l_showPrevSeIection= false 

l_co! names(0) = -SOURCE** 
LcofnamesCl) = "DESCRIPTION*' 

l_query = **select U_SOURCE_NAME, U_source_description " _ 
& •* FROM Sourcc_descriptions ** _ 
& " WHERE rec^id = " & cint(l_recjd) 



' Response.Wrtte l_rec_id 
If (IsNumeric( l_recjd) ) then 

if l_action "Update" or l_action = "Delete" then 

editAccepi l_rec Jd, l_action, I_CoiumnCount, l_setupTabLinkJ_sp_edit 
else 

strSQL = Lquery 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST-EOF = False) then 
I_coLvaIucs(0) - ObjRST,Fields(0) 

LcoI_values(l)= ObjRST.Fieids(l) 

end if 

objRST.close 
end if 

end if 



* call setupTab*s editmain to paint screen for user input 
editHeading l_file, i_file, l_recjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain I_Title,l_setupTabLink,LshowPrevSelection,I_col_names,l_col_values,LColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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ms editcampaign.asp 

<%@ Language-^VBScript" %> 

<!-#include file-".7support/global_constants.asp" -> 

<t- # include fiie="„/support/dbConnection.asp" ~> 

<!- #includc file^" Jsupport/adoUtils.asp* -> 

<!- ^include file=*.7support/srcTab.asp'' ~> 

<l- #include file^^.Vsupport/navigation.asp" -> 

<!- # include file="../support/objedit.asp" -> 

<% 

I_this_file ='*ms_editcampaign,asp" 

SessionC'referjage") = "admin5a.asp** ^ n /» 

if (RequestFormCsetupTab") o "0" and Request.FonnCsetupTab*') > " ") then Response.Redirect(Request.Fonn( : 

savechanges = False 

page = requestquerystringCpg**) 

if not (len(page) > 0) then 

page = requestformCpg") 

if requesLform ("groupcdif) > " " then savechanges = True 

end if 

Uwmanyrecords = request.querystringCro") 
'Update 

if savechanges ~ True then 

'response.write ("Entering 
*Gct records 

recordcount = Requestform(''p_RecCounf*) 

record id = 

recordidlist^**** 

'response.write (" RecordCount -> " & cstr(recordcount) & ''<br>") 
•response. write(*There are " & cstr(rccordcount) & " records <br>'') 



for i = I to recordcount 

recordid - Request formCrec Jd" & cstr(i)) 
'response.write ("<br>Record id: "* & recordid) 
if recordid > " ** then 

'init obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row=i 

PGE.AddRecord recordid 

'response. write(cstr(recordid) + ''<br>") 

'Set Stored Procedure info 
PGE.CIassType = "Multi Edit" 
PGE.SP = ''sp_edit_campaign" 
PGE.TableName = "campaigns" 

if Requestform("GroupEdit") > " " then PGE.IsDelete 0 

if request.fonn("deletebutton") > " " then PGE.IsDelete ^ 1 

PGE.AddParam "camp_name" 

PGE.AddParam ''canip_date_fr" 

PGE.AddParam "camp_type" 

PGE.AddParam "canip_status_name" 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_namc" 

'PGE-AddParam "newstand_sale" 

PGE.AddParam "budgeted_^oss_pct" 

PGE.AddParam "budgeted_vor 

PGE.AddParam "login" 

PGE.AddParam "recjd" 

PGE.AddParam "IsDelete" 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText - "sp_edit__campaign" 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 

'response.write ("Changes Saved") 
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end if 

next 'i 
end if 

'Muiti Select 

dim MSE ' Muiti Select object 

dim strSQL ' SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage ' max number of records to display on each page 

'init obj 

set MSE = new ofajGroupEdit 
MSEJnit 

MSE.ClassType = "MultiSeiect" 
MSE.action = l_this_file 
MSE.Retum_Page ~ "admin5a.asp" 
MSETableHeader = "Muiti Edit" 
MSRshow = true 

recordidlist = SessionfRECORDIDLIST") 
MSE.MS_Page = page 
RecsPerPage - 5 

MSE.MS_RecsPerPa^e = RecsPerPage 
MSE.MS Table = •'Campaigns" 

MS„Whe7eCiause = where grp_name - & SessionCGRP.NAME") & and PRODUCTJI>" & SessionCPRODUCT_ID") & " 
and src_cat_name - & SessionCSRC_CAT_NAME'') and source_name = & SessionCSOURCE_NAME'') & and 

rccjd in r & ScssionCRECORDIDLIST*') & 
MS_OrderBy - ** Order by camp_nanie desc " 
'response, write MS_WhcreCiause 

'open recordset for current page 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText ^ "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parameters('*@Page'*).value = page 
objCMD.ParametersrQRecsPerPage") = RecsPerP^e 
objCMD.ParametersCQQueryTabie") = "Campaigns" 
objCMD.ParametersCQWhereClause") = M$_WhereClause 
objCMD.ParametersC@OrderBy'') = MS_OrderBy 
set objRST objCMD.executeQ 

Response. writeCRecord ID list > - & Session("RECORDIDLlST")) 
'response. write ("Page + cstr(Request.querystringCpg*'))) 

'strSQL= "pagedquery " + cstr(page) + ".S/campaigns'," + chr(34) + MS_WhereClause + Chr{34) + + chr(34) + MS_OrderBy + 
chr(34) 

'response, write (strSQL) 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords = objRSTCMoreRecords'*) 

MSE.MS_NumOfRecords = NumOfRecords 

else 

There are no more records 

'response.write "There are no more records to edit" 

response.redirect "adminSa-asp" 

end if 

while not objRST.eof 

MSENextRow 

'Campaign Name 
index = MSE.Addftem 
MSE.fieidType index, "TEXT" 
MSE.CoIumnHeader index, "CAMPAIGN NAME" 
MSE.default index, mycsU(objRST("camp_name")) 

'Campaign Start Date 
index = MSE.Addltem 
MSE.fieidType index, "TEXT" 
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MSE.CoIumnHeader index, "CAMPAIGN START DATE" 
MSE.default index, mycstr(objRST("camp_date_fr*')) 

'Campaign Type 
index = MSE.Addltem 
MSH.fieidType index, "SELECT" 
MSE.CoIumnHeader index, "CAMPAIGN TYPE" 

MSE,strSQL index, "select CAMP_TYPE_NAME from PROD_CAMP_TYPE where PRODaCTJD='' & 
Session("PRODUCT JD") & " order by campjype_name " 
MSE.default index, mycstr(objRST("camp_type")) 

'Campaign Status 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.ColumnHeader index, "CAMPAIGN STATUS" 

MSEstrSQL index, "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where PRODUCTJD=" & 
SessionC'PRODUCT_ID") & " order by camp_status_name * 

MSE.default index, mycstr(objRST("camp_status_name")) 

'Expense Set 

index = MSE.Addltem 

MSE.fieldtype index, "SELECT" 

MSE.ColumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "select e_set_name from EXPENSE_SETS where PRODUCT JD^" & Session("PRODUCTJD") & 
order by c_set_name " 

MSE.default index, mycstr(objRST("e_set_name")) 

•Revenue Set 

index = MSE.Addltem 

MSE.fieldType index, "SELECT 

MSE.ColumnHeader index, "REVENUE SET" 

MSE.strSQL index, "SELECT r_set_name from revenue_sets where productjd = " & Session("PRODUCTJD") & " 
order by r_set_namc'' 

MSE.default index, mycstr(objRST("r_set_name")) 

"Newstand Sale 
'index = MSE.Addltem 
'MSE.fiddTypc index, "TEXT" 
'MSE.ColumnHeader index, "NEWSTAND SALE" 
^MSE.default index, mycstr(objRST("newstand_saIe")) 

^Budgeted Gross % 
index = MSE.Addltem 
MSE.fieldtype index, "TEXT" 
MSECoIumnHeader index, "BUDGETED GROSS 
MSE.default index, mycstr(objRSTrbudgeted _^ossj3Ct")) 

'Budgeted Vol 

index = MS£.AddItem 

MSE.fieldtype index, "TEXT" 

MSECoIumnHeader index, "BUDGETED VOL" 

MSE.default index, mycstr(objRSTCbudgeted_vor)) 

'Record ID 

index = MSE-Addltem 

MSE.fieIdType index, "RECORDID" 

MSE.ColumnHeader index, "" 

'MSE.strSQL index, "N,Y" 

MSE.default index, mycstr(objRST("rec_id")) 

objRST.movenext 
wend ' objRST 
objRST.close 

Table Headers 

%> <form method- "POST" action="<%=i_this_file%>" name="Group_Edit_Fonn" cellpadding="3" cellspacing ="3"> 
<table> 

<% 
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'response. write (Sessionf RECORDIDLIST") & " Helio World") 
'Set record count 

%> <input type^^HIDDEN" va]ue=''<%=RecsPerPage%>" name="p_RecCount''> <% 

'Display T^le 
MSE.DisplayEditTable 

%> 
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ms editkev.asp 

<:%@ Language= VBScript %> 

<l- #include file=".7support/global_constants.asp" -> 

<l— #include fi[e=",7support/dbConnection.asp" — > 

<!- #include fiie=''../support/adoUtiIs.asp" -> 

<l- ^include fiie='',./support/srcTab.asp*' -> 

<1- ^include fiIe=".ysupport/navigation.asp" ~> 

<l- #inciude file='*.ysupport/objedit.asp" -> 

<% 

I_this_file =''ms_editkey.asp*' 
SessionCrefer^jsage-) ^ ''ms_editkey.asp'' 

if (Request.Form(''setupTab*')o "0" and RequestForm("setupTab") > * *) then Response-Redirect(RequestFonnCsetupTab'')) 

savechanges = False 

pa^e = requestquerystringC'pg'') 

if not len(page) > 0 then 

page - request. form("pg'') 

savechanges = True 

end if 
'Update 

if savechanges = True then 
*Get records 

recordcount = Request,form{''p_RecCount'') 

'response. write (** RecordCount & cstr(recordcount) & ''<br>'') 

recordid - 

recordidlist = 

'response, writeCThere are " & cstr(recordcount) & " records <br>*') 
for i = I to recordcount 

recordid = Request formCrecJd" & cstr(i)) 

if recordid > " " then 

'init obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row=i 

PGE.AddRecord recordid 

'response. write(cstr(record id) + '•<br>") 

*Set Stored Procedure info 
PGE.CiassType = "Multi Edit" 
PGE.SP '•sp_edit_key" 
PGE.TableName *'keys" 
PGE.IsDelete = 0 
PGE.AddParam "p^key^descr" 
PGE.AddParam ''mail_qty_oveiride" 
PGE.AddParam ''newstand_sale'' 
PGE.AddParam '•newstand_sale_marker" 
PGE.AddParam ''Iist_cat_name'' 
PGE.AddParam ''list_name'' 
PGE.AddParam ''Iist_segment_name'' 
PGE.AddParam ''Iist_cost_actuaI_cpm" 
PGE.AddParam "Iist_cost_basis'' 
PGE.AddParam ''list_cost_factor** 
PGE.AddParam "merge J5urge_qty'' 
PGE.AddParam "e_set_name'' 
PGE.AddParam "r_set_name'' 
PGE.AddParam ''panel_pkg" 
PGE.AddParam "subtotal_flag" 
PGE.AddParam "optional_efTortJd" 
PGE.AddParam "recjd" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_key" 
objCMD.CommandType = adCmdStoredProc 
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objCMD.parameters.refresh 
PGE.PostGroupEditsBySP 



end 



end if 
next 'i 
if 



'Multi Select 
dim MSE 
dim strSQL 
dim NumOfRecords 
dim RecsPerPage 



' Multi Select object 
' SQL Query text 

Total records matching whereclause - used for Prev and Next buttons 
' max number of records to display on each page 



'init obj 

set MSE = new objGroupEdit 
MSE. init 

MSE.action = i_this_file 
MSRClassType = "MultiSelect" 
MSETableHeader = "Multi Edit" 
MSE^how ^ true 

recordidlist ^ SessionCRECORDIDLIST") 
MSE.MS_Page = page 
RecsPerPage = 5 

MSE.MS_RecsPerPage ^ RecsPerPage 
MSEMS^Table--keys" 
MSE.Retum_Page = "adminkeysrightasp" 

•MS_WhereCiause - where grp name = & SessionCGRP.NAME^) & and PRODUCTJO^** & SessionC-PRODUCTJD") & " 
and src_cat_name = & SessionC$RC_CAT_NAME") & & " and source_name = & Session^ SOURCE_NAME") & & " 
and Carap_name - "* & Session("CAMP_NAME'') & and rec Jd in C & SesstonCRECORDIDLIST") & 
MS_WhereClause = " where recjd in f & ScssionCRECORDIDLISr ) & 
MS_OrdeTBy = " Order by full_promo_key " 
'response.write MS_WhereClause 

'open recordset for current page 
objCMDActiveConnectton = strSQLOLEDB 
objCMD.CommandText = "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parameters(**@Page'').va1ue ^ page 
objCMD.Parameters{"@RecsPerPage") = RecsPerPage 
objCMD.ParametersCQQueryTable") = "keys" 
objCMD.ParametersCQWhereClause") = MS__WhereClause 
0bjCMD.ParametersC@OrderBy'') ^ MS_OrderBy 
'response.write ("Page + cstx^RequestquerystringC^pg"))) 

•strSQL = -p^edquery - + cstr(page) + ",5,'keys'," + chr(34) + MS_WhereCiause + Chr(34) + + chr(34) + MS_OrderBy + chr(34) 

'response.write (strSQL) 

set objRST ^ objCMD.executeQ 

•objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords = objRST("MoreRecords") 

MSE.MS_NumOfRecords NumOfRecords 

'response.write (NumOfRecords) 



else 



There are no more records 

'response.write "There are no more records to edit" 

response.redirect "adminkeysright.asp" 



end if 



while not objRST.eof 

MSE.NextRow 



'Key 



index = MSE.Addltem 

MSEJieldType index, 'WTAPARAMETER" 

MSE.ColumnHeader index, "KEY" 

MSE.default index, mycstr(objRST("fun_promo_key")) 
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'FCey Description 
index = MSE. Addltem 
MSE.fieldType index, "TEXT" 
MSE.CoIumnHeader index, "KEY DESCRIPTION" 
MSE,defauIt index, mycstr(objRST("p_key_descr")) 

TvIailQty 

index = MSE.AddItem 

MSE.fieldTypc index, "NOTAPARAMETER" 
MSE.CoIumnHeader index, "MAIL QTY" 
MSE.defauIt index, mycstr(objRST("key_maiI_qty")) 

•MailQtyOverRide 
index = MSE Addltem 
MSRfieidtypc index, "TEXT" 

MSE.CoiumnHeader index, "MAIL QTY OVERRIDEA^RAW" 
MSE.defauIt index, mycstr(objRST{''mail_qty_ovenide")) 

Tslewstand Sale 
index = MSE.AddItem 
MSE.fieldtype index, "TEXT" 
MSE.CoIumnHeader index, "NEWSTAND SALE" 
MSE.default index, mycstr(objRST("Kewstand_Sale")) 

*Newstand Sale Marker 
index = MSE, Addltem 
MSE.fieldtyp€ index, "SELECTLOV 

MSE.CoIumnHeader index , "RESPONSE BASED ON SALE (Y), OR DRAW (N)" 
MSE.strSQL index, "N,Y" 

MSE.defattiU index, mycstr(objRSTrNewstand_SaIe_Marker")) 

'List Category 

index = MSE. Addltem 

MSE.fieldtype index, "SELECT" 

MSE.CoIumnHeader index, "LIST CATEGORY" 

MSE.strSQL index, "SELECT Iist_cat_name from list_cats where product Jd = " & Session("PRODUCTJD") & " order 
by Hst_cat_name" 

MSE.defauIt index, mycstr(objRSTClist_cat_name")) 

'List Name 

index = MSE.AddItem 
MSE.fieidtype index, "SELECT" 
MSE.CoIumnHeader index, "LIST NAME" 

MSE.strSQL index, "SELECT list_name from list^names where productjd = " & SessionfPRODUCTJD") & " order by 

list_name" 

MSE.dcfault index, mycstr(objRST("list_name")) 

'List Segment Name 
index = MSE.AddItem 
MSE.fieidtype index, "SELECT" 
MSE.CoIumnHeader index, "LIST SEGMENT NAME" 

MSE.strSQL index, "SELECT iist_segment_name from list_segments where productjd = " & Session("PRODUCT_ID") 
& " order by iist_scgment_name" 

MSE.defauIt index, mycstr(objRST("list_segment_name")) 

*List cost actual CPM 
index = MSE.AddItem 
MSE.fieIdType index, "TEXT" 

MSE.ColumnHeader index, "LIST COST ACTUAL CPM" 
MSE.defauIt index, mycstr(objRST("iist_cost_actuaI_cpm")) 

'List Cost Basis 
index = MSE- Addltem 
MSE.fieldType index, "SELECTLOV" 
MSE.CoIumnHeader index, "LIST COST BASIS" 
MSE,strSQL index, "Mail QTY,Merge Purge QTY,Undefmed" 
MSE.defauIt index, mycstr(objRST("list_cost_basis")) 
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'List Cost Factor 
index = MSE.Addltem 
MSE.Fieldlype index, "TEXT" 
MSE.CoIumnHeader index, "UST COST FACTOR" 
MSE.default index, mycstr(objRST(''list_cost_factor")) 

'Merge Purge QTY 
index = MSEAddItem 
MSE.Fieldtype index, "TEXT" 
MSE.CoIumnHeader index, "MERGE PURGE ATY" 
MSEdefauIt index, mycstr(objRSTCmerge_purge_qty'')) 

'Expense Set 

index = MSE.additem 

MSE.fieIdtype index, "SELECT" 

MSECoIumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "select e_^set_name from expense_sets where productjd = " & Session("ProductJd") & " order by 
e_set_name" 

MSE.default index, mycstr(objRST("e_set_name")) 

'Revenue Set 

index = MSE.additem 

MSE.fieIdtype index, "SELECT" 

MSE.ColumnHeader index, "REVEUE SET" 

MSEstrSQL index, "select r_set_name from revenue^sets where productjd = " & Session("PRODUCT_ID") & " order by 
r_set_name" 

MSEdefauIt index, mycstr(objRST("r__set_name")) 
'Package 

index - MSE.Addiiem 
MSEfieldtype index, "SELECT" 
MSE.CoIumnheader index, "PACKAGE" 

MSEstrSQL index, "select packagc_name from prod_panei_package where productjd =^ " & Session("PRODUCTJD") 
& " order by package_name" 

MSE.defauk index, mycstr(objRSTCpaneI_pkg")) 

'Subtotal Flag 

index = MSE.Addftem 

MSE.fieldType index, "SELECTLOV" 

MSE.ColumnHeader index, "SUBTOTAL FLAG" 

MSE-StrSQL index, "True,False" 

MSE.default index, mycstr(objRST("subtotal_flag")) 

'Optional Effort ID 
index = MSE.additem 
MSE.fieIdtype index, "TEXT" 

MSE.CoiumnHeader index, "OPTIONAL EFFORT FLAG" 
MSE.default index, mycstr(objRST("optional_effortJd")) 

"Record ID 

index - MSE.Addltem 

MSE.fieidTyp€ index, "RECORDID" 

MSE.CoiumnHeader index, " " 

MSE.default index, mycstrCobjRSTCrecJd")) 

objRST.movenext 
wend * objRST 
objRST.close 
Table Headers 

%> <form method="POST" action="<%=l_this_fiIe%>" name="Group_Edit_Form" ceUpadding="3" cellspacing ="3"> 
<table> 

<% 

'response.write (Session("RECORDlDLIST") & " Hello World") 
'Set record count 

%> <input type="HIDDEN" vaiue="<%=RecsPerPage%>" name="p_RecCount"> <% 

'Display Table 

MSEDisplayEditTable 
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%> 
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ms editpancl.asp 

<%@ Language- VBScript %> 

<!-#include rile=".7support/global_constants.asp" -> 

<!-#include fi1e=''.7support/dbConnection,asp'' -> 

<!- #include file="„/support/adoUtils.asp" -> 

<!- #include fiie='*.7support/srcTab.asp'' -> 

<!- ^include file=''.ysupport/navigation.asp" -> 

<!- #include file="Jsupport/objediLasp" -> 

<% 

l_this_fi!e -''ms_editpane!.asp'' 
SessionCrefer^page") = ''nis_editpanel.asp'* 

if (RequestFormfsetupTab")o "0" and Request.Fonn("setupTab") > " then Response.Redirect(RequestForm( setupTab )) 

savechanges = False 

page = requestquerystringCpg") 

if not len(page) > 0 then 

page = requestformC'pg") 

savechanges = True 

end if 
'Update 

if savechanges - True then 



'Get records 

recordcount = Requestform(''p_RecCount'') 
recordid = 
rccordidlist - 

Vesponse-write C RecordCount -> " & cstr(recordcount) & "<br>*') 

'response. writeCTliere are " & cstr{recordcount) & " records <br>") 
for i = 1 to recordcount 

recordid = Request formCrecJd" & cstr(i)) 

ifrecordid>'"'then 

'in it obj 

set PGE = new objPostOroupEdit 
PGE.init 

PGE.MSE_Row = i 
PGEj\ddRecord recordid 
'response.write(cstr{recordid) + ''<br>'') 

*Set Stored Procedure info 
PGE.ClassType = ''Multi Edit" 
PGE.SP = *'sp_edit_panels'' 
PGETableName = "panels" 
PGEIsDelete = 0 
PGEAddParam "panei_name*' 
PGE.AddParam ''paneLdate_start'' 
PGE.AddParam ''panel_type'' 
PGE.AddParam "pancl^subtype" 
PGE^ddParam *'test_type'' 
PGE.AddParam "panel_pkg*' 
PGE.AddParam ''e_set_name'' 
PGE.AddParam ''r_set_name" 
'PGE.AddParam *'newstand_sale_marker'' 
PGE.AddParam *'iogin- 
PGE,AddParam "recjd" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = ''sp_edit_panel'' 
objCMD.CommandType ~ adCmdStoredProc 
objCMD.parameters.refresh 
PGE.PostGroupEditsBySP 

end if 
next 'i 
end if 
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•Multi Select 

dim MSE ' Multi Select object 

dimstrSQL ' SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage ' max number of records to display on each page 



'in it obj 

set MSE = new objGroupEdit 
MSEJnit 

MSECIassType = "MultiSelect" 
MSE.action = l_this_file 
MSE.Retum_Page = ''admin6a.asp'' 
MSE,TabIeHeader^ "Multi Edit" 
MSEshow = true 

recordidlist = SessionCRECORDIDLIST") 
MSE.MS_Page = page 



RecsPerPage = 5 

MSEMS_RecsPerPage = RecsPerPage 
MSE-MS_Tafaie ''panels** 

MS_WhereClause = " where recjd in (" &. SessionCRECORDIDLIST") & y 
MS_OrderBy = " Order by SOURCE_NAME " 
'response, write MS_WhereClause 

'open recordset for current page 
objCMD. ActiveConnection = strSQLOLEDB 
objCMD.CommandText '"PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parametersf@Page-). value = page 
objCMD.Parametersr@RecsPerP^e") =^ RecsPerPage 
objCMD.ParametersrgQueryTable") = "panels'* 
cbjCMaParametersCQWhereClause") = MS_WhereClause 
objCMD.ParametersCQOrderBy") ^ MS_OrderBy 
set objRST = objCMD.executeO 

'response.writeCRecord ID list > & SessionfRECORDIDLISr)) 
'response, write ("Page + cstr(Request.querystringCpg"))) 

'strSQL - "pagedquery " + cstr(page) + ",5;paneis','' + chr(34) + MS_WhereClause + Chr(34) + "," + chr(34) + MS_OrderBy + 
chr(34) 

'response.write (strSQL) 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords ^ objRST("MoreRecords") 

MSE.MS_NumOfRecords = NumOfRecords 

'response.write (NumOfRecords) 

else 

There are no more records 

'response.write "There are no more records to edit" 

response.redirect "admin6aasp" 

end if 



while not objRST.eof 

MSE.NextRow 



'Panel Name 

index = MSEAddItem 

MSE^fieldType index, ''TEXT" 

MSE.CoIumnHeader index, "PANEL NAME" 

MSE.default index, mycstr(objRST("panel_name")) 

'Panel Date Start 
index ^MSE.AddItem 
MSE.fieldType index, "TEXT" 
MSE.CoiumnHeader index, "PANEL DATE START" 
MSE.default inciex, mycstr(objRST("paneI_date_start")) 
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Tanei Type 

index = MSE.Addliem 

MSE.fieldType index, "SELECT* 

MSE.CoIumnHeader index, TANEL TYPE" 

MSE.strSQL index, "SELECT panel_type_namc FROM corp_panel_type ORDER BY panel_type_name" 
MSE.defauIt index, mycstr(ofajRST("panel_type")) 

'Panel SubType 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT** 
MSE.CoIumnHeader index, "SUBTYPE" 

MSE.strSQL index, "SELECT panel_sub_type_name from corp_panel_sub_type order by panel_sub_type_name'* 
MSE.default index, mycstr(objRST("panei_subt>'pe'')) 

Test type 

index ==MSEAddlteTn 
MSE-fieidtype index, "SELECT" 
MSE.CoIumnHeader index, "TEST TYPE" 

MSE.strSQL index, 'SELECT panel Jest_type_name from corp janel jest_type order by panel_test_type_name'' 
MSE.defau!t index, niycstr(objRST("test_type")) 

'Package Type 
index = MSE.Addltem 
MSE.fteldtype index, "SELECT" 
MSE.ColumnHeader index, "PACKAGE" 

MSE.strSQL index, "SELECT package_name from prodjDanel_package where productjd = " & 
Session("PRODUCTJD") & " order by package_name" 

MSE.defauU index, mycstr(objRST("panel_pkg")) 

'Expense Set 

index = MSE.Addltem 

MSE.fieldtype index, "SELECT" 

MSE.CoIumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "SELECT e_set_name from expense_sets where productjd = " & Session("PRODUCT_ID") & " 
order by e_set_name" 

MSE.default index, mycstr(objRST("e_sel_name")) 

'Revenue Set 

index = MSE.Addltem 

MSE.fieldType index. "SELECT" 

MSE,ColumnHeader index, "REVENUE SET" 

MSE.strSQL index, "SELECT r_set_name from revenue_sets where product_id - " & Session("PRODUCTJD") & " 
order by r_set__name" 

MSE.defauU index, mycstr(objRST("r_set_name")) 

*Newstand Marker 
'index = MSE.AddItem 
'MSEfieldType index, "SELECTLOV" 
'MSE.CoiumnHeader index, "NEWSTAND MARKER" 
•MSE.strSQL index, 'N,Y" 

•MSE.default index, mycstr(objRST("newstand_sa1e_marker")) 
'Record ID 

index = MSE.Addltem 

MSE.fieldType index, "RECORDID" 

MSE.CoIumnHeader index, " " 

•MSE.strSQL index, "N,Y" 

MSE.default index, mycstr(objRST("recJd")) 

objRST.movenext 
wend • objRST 
objRST.close 
Table Headers 

%> <form method="POST" action="<%=I_this_f!le%>" name="Group_Edit_Form" cellpadding="3" cellspacing ="3"> 
<table> 

<% 

•response.write (Session("RECORDIDLIST") & " Hello World") 
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'Set record count 

%> <mput type="HIDDEN" value="<%=RecsPerPage%>" name="p_RecCount"> <% 

'Display Table 

MSE.DispIayEditTable 



%> 
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noadminright$.asD 

<%@ Language- VBScript %> 

<!- ^include fiIe="../support/g!obal_constants.asp" -> 
<!-#include file^-.ysupport/dbConnection.asp" -> 
<!- #include file="../support/adouti!s.asp'* -> 
<l- #include file=\ysupport/srcTab.asp'' -> 
<% 

I_this_file = "NoAdminRights.asp" 
%> 

<html> 
<head> 

<title>You Do Not Have Admin Rights for this product! </title> 
</head> 

<body bgcoior-"#99CCFF'' viink==*'O00O0O'' link-''003366*'xfontsize='^20''> 
<br> 

You Do Not Have Admin Rights for <%=Session("Titie_name'')%>i! 

</font> 

</body> 

</htmI> 
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nosetuprights.asp 

<%@ Language=VBScript %> 

<!-#include file=".7support/giobal_constants.asp'' -> 
<!-#include file=",ysupport/cIbConnection.asp*' -> 
<I-#include fIle=^ysupport/adoutils.asp'' -> 
<!-#include ftle=''„/support/srcTab.asp" -> 
<% 

Lthis_file = -NoSetupRlghts.asp" 
%> 

<html> 
<head> 

<titIe>You Do Not Have Setup Table Access Rights for this product!</title> 
</head> 

<body bgcoIor=''#99CCFF" vHnk-"0O0O00" iink=*'003366"xfont size=''20"> 
<br> 

You Do Not Have Setup Table Access Rights for <%=Session(''Title_name")%>!l 

</font> 

</body> 

</html> 
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searchbounccasp 

<%@ Language=VBScript %> 

<!- #include fiie=".7support/giobai_constants.asp" -> 
<1- #include file=".7support/dbConnection,asp" -> 
<!- # include file=",7support/adoUtils asp" -> 
<!-#mclude fi!e="../support/srcTab.asp'' -> 

<% 

'parameters should be: 

* p_optton,p_OT_name, p_PRODUCTJD, p_SRC_CAT_NAME, 

* p_SOURCE_NAME,p_SRC_INDICATOR, p_canip_name 

* which uii we redirect to , . . 
' parameters: Z => record id 

* Y -> option 

' Response, writefThis is so gay") 

p_action = cintCRequestQueryStringCX")) 

p_oplion = cint{Request.QueryStringCY'')) 

'Response.write("<br> " & p_option) 

p_recjd = cint(Request.QueryString ("Z")) 

' Response.writef <br> & p^recjd) 
* Response. Write p_grp_name 

ifp_option=0 then 

strSQL- -select GRP_NAME, TITLE_NAME, PRODUCTJD, SRC_CAT_NAME \ 
&" fromSRC_CATEGORY''_ 
& " where recjd & p_recjd 

objRST.open strSQL, strSQLOLEDB. adOpenStatic» adLockOptimistic 
sessionrGRP_NAME") - objRST.FieldsCGRP.NAME"). Vaiue 
scssionCTITLE_NAME*) = objRST-Ficlds(*TITLE_NAME")- Value 
sessionCPRODUCTJD-) = objRST.FieldsCPRODUCT.ID-). Value 
session("SRC_CAT_NAME") - objRST.FieldsrSRC.CAT.NAME"). Value 
objRST.close 



elseif p_option=l then 

strSQL = "select GRP„NAME, Srcjndicator, TITLE_NAME, PRODUCTJD, SRC_CAT_N AME, SOURCE_NAME 
& " from SOURCE " _ 
& *• where rec Jd & p_recjd 
'Response. Write strSql 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionrGRP_NAME") = objRST.FieldsCGRP.NAME"). Value 
sessionrPRODUCTJD*')=objRST.FieldsC'PRODUCTJD")- Value 
sessionCTrrLE_NAME'*)=objRST.FieldsrTlTLE_NAME"). Value 
sessionCSRC^CATJMAME") = objRST.FieldsC'SRC_CAT_NAME*). Value 
session(''SOURCE_NAME'') = objRST.FieIdsrSOURCE_NAME-).Value 
SessionCSRC_INDfCATOR-) = objRST.Fields("SRC_INDICATOR'').Va!ue 
objRST.close 
if p_action = I then 

Response. Redirect(''editSource.asp?Z=" & p_rec_id) 

else 

Response.Redirect("admin5a.asp'*) 

end if 

^s^Ql'^'-^^^^^^ ^cjndicator, GRP_NAME, THTE^NAME, PRODUCTJD, SRC_CAT_NAME, SOURCE^NAME, 
CAMP_NAME 

&" from CAMPAIGNS " _ 
& " where recJd & p_recjd 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
session("GRP_NAME'') = objRST.FieidsCGRP.NAME"). Value 
session("PRODUCT_ID*') -objRST.FieldsC'PRODUCTJD"). Value 
sessionC'TITLE_NAME**)=objRST.FieIds("TITLE_HAME''). Value 
session("SRC_CAT_NAME") - objRST.FieldsCSRC_CAT_NAME-). Value 
sessionCSOURCEJsIAME'') - objRST,FieldsCSOURCE_NAME*').Value 
SessionrCAMP_NAME'*) =objRST.FieldsCCAMP_NAME''). Value 
SessionCSRC_INDICATOR") = objRST.FieIds("SRC_IND(CATOR'').Value 
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objRSTxlose 

if p_action = 1 then 

Response. Redirect(''editCamp.asp*?Z=" & p_recjd) 

else 

Response. Redirect("admin6a. asp") 

end if 
elseif p_option=3 then 

strSQL= "select SrcJndicator,GRP_NAME, TITLE^NAME, PRODUCT JD, SRC_CAT_NAME, SOURCE_NAME, 
CAMP_NAME, PANEL_NAME \ 
&** from PANELS 
& " where rec_id & p_recjd 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionCGRP^NAME") objRST.FieIdsCGRP_NAME''), Value 
sessionCPRODUCTJD'*)=K)bjRST.FieidsCPRODUCr_ID'').Value 
sessionCTrrLE_NAM£'')=objRST.Fidds("TITLE_NAME")- Value 
sessionCSRC_CAT_NAME") - objRST.FieldsCSRC_CAT_NAME'').Value 
sessionCSOURCE_NAME'') = objRST.Fields{"SOURCE_NAME''). Value 
Sessionf CAMP_NAME") = objRST.Fie!dsCCAMPJS[AME").VaIue 
SessionCPANEL_NAME'') = objRST.FieldsrPANEL_NAME''). Value 
SessionCSRC_INDICATOR") - objRST.FieldsCSRC_INDICATOR"). Value 
objRST.close 
if p_action = 1 then 

Response,Redirect(''editPanelasp?Z=" & p_recjd) 

else 

Response.RedirectCadminkeys.htm*') 

end if 
else 

Response. Write *'<br> else this" 

end if 

%> 
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setupcampstatasp 

<%@ Language=VBScript %> 
<!- # include file^-.Vsupport/global^constants.asp" ~> 
<|_ #include fiIe='*../support/dbConnection,asp" -> 
<!- #include file=*'.7support/adoUtils-asp'* -> 
<l- #inciude file=".ysupport/srcTab.asp" -> 
<l- #inciude file=".ysupport/setupTab.asp" -> 
<!- #include file=-../support/JavaScripts.asp*' -> 
<% 

l_this_file = "setupCampStatasp" 
l_showPid = true 

if not ( sessionCProductJd") > " " ) then 
Response.RedirectC'admiii2a,asp?FR=" & i_this_fiie ) 
end if 



I_name = "Campaign Status" 

l_descr = "The status of a Campaign <BR> (i.e. active, complete)," & vbcr 
%> 

<htmt> 
<head> 

<titIex%Response. Write l_name%x/titie> 
</head> 

<body bgcoior=*'99CCFF'' background=".ygraphics/adminhor2sIice2,gtr text-"#000000*' 

link-^^OOOOOO" vlink="#0000OO'' marginwidth=''0'' marginheight="0'' leftmargin=''0'' topmargin="0-> 
<form mcthod=-post'' action namO 

<table width^*'660'* border="0'' cellspacingr'lO" cellpadding^^O" vaIign=''top"> 

<tr vaIign="top"> 
<td valign=''top"> 
<% ' call setupTab's Left Caption 

LeftC^tions l_Name, l_descr, i_showPid,l_this_rile 
%> 
</td> 

<td rowspan="6'' width-MeS" vaiign-nop" ALIGN-''LEFT"> 
<% * call setupTab's show 
dim l_litlcs(2) 

l_titles(0) = "Campaign Status" 
1 Jitles( I) = "Description" 
l_editProc = "editCampStatasp" 
!_addProc - "addCampStatasp" 
l_columnCOunt = 2 

myQ = "select camp_status_name, CAMP„STATUS_DESCR, RECJD " _ 

& * from prod_CAMP_status where " _ 

& " Productjd =" & Scssion("PRODUCTJD-) _ 

& " Order by camp_status_name " 

showSetupTable l_titles, myQ, l_editProc, l^addProc, l_columnCOunt %> 

</td> 
</tr> 

</form> 
</body> 
</html> 
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setupcamptvpcasp 

<%@ Language=VBScript %> 
<!- #include file="„/support/g!obai_constants.asp" -> 
<l- #include fiIe=",./support/dbConnection.asp" -> 
<l- #include file=".ysupport/adoUtiis.asp*' -> 
<l- #include file="../support/srcTab.asp" -> 
<!- #inc!ude fUe=".7support/setupTab.asp'* -> 
<!- ^include file-^Jsupport/JavaScriptS-asp" -> 
<% 

!_this_fiie = "setupCampType.asp" 
l_showPid - true 

if not ( sessionCProductJd") > " ** ) then 
Response.Redirect{''admin2a.asp?FR='' & l_this_file ) 
end if 

l_name = "Campaign Type" 
I_descr = "A broad classification of a Campaign which is " _ 
& " user defined and can differ between Sources, (i.e. Winter DM, hotiine), " & vbcr 

%> 

<htmi> 
<head> 

<titlex%Rcsponse. Write l_name%x/title> 
</head> 

<body bgcoior^''99CCFF'' backg^ound=^./graphics/adminhorzslice2.gi^ text^-^OOOOOO* 

linlc=''#0OOOOO'' viink="#0O0000" marginwidth="0'' marginheight=''0'' leftmargin="0- topmargin=''0"> 
<form method="post'' action name> 

<table width^-eeO** border=-0*' cellspacings" 10" ceHpadding="0" valign="top"> 

<tr vaIign="top"> 
<td vaIign-''top"> 
<% * call setupTab's Left Caption 

LeftCaptions l_name, l_descr, l_showPidJ_this_file 
%> 
</td> 

<td rowspan="6* width^"468" vaIign="top" ALIGN-"LEFT"> 
<% ' call setupTab's show 
dim i_titles(2) 

ljitles(0) = "Campaign Type" 
l_titles(l) = "Description" 
!_editProc = "editCampType.asp" 
i_addProc = "addCampType.asp" 
l_coiumnCOunt - 2 

myQ== "select camp_type_name,CAMP_TYPE_DESCR,REC_fD "_ 

& " from PROD C AMP_type where " 

& " Productjd =" & Scssion("PRODUCT JD") _ 

& " Order by camp_type_name " 

showSetupTable !_titles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 
</tr> 
</tabIe> 

</form> * 

</body> 

</html> 
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sctupeset.asp 

<%@ Unguage= VBScript %> 
<!-- #include file=".7support/global_constants.asp'' -> 
<t- # include file-" Jsupport/dbConnection.asp" ~> 
<!- #inciude file^"../support/adoUtils-asp'' -> 
<!- # include file^^.isupport/srcTab.asp" -> 
<!- # include file=''.ysupport/setupTab.asp*' -> 
<!- # include fiIe=".7support/JavaScripts.asp'' -> 
<% 

l_this_file = "setupESetasp" 
l_showPid = true 

if not ( sessionCProduct Jd") > ) then 
Response.RedirectCadmin2a-asp?FR='' & l_this_file ) 
end if 

l_name = "Expense Set* 

l_descr = "A set of expenses which cm be applied to a Campaign, Panel or Key." & vbcr 
%> 

<htmi> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 



<body bgcolor="99CCFF" background="Jgraphics/adminhor2slice2.gir text="#00O0O0" 

Unk="#00OOO0" vnnic="#0OO000" marginwidth-"0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method^"post" action name=fonnl id=forml> 

<tablc width-"660" bordci=="0- cellspacings" 10" ceIIpadding-"0" valign="top"> 

<tr vaIign="top"> 
<td vaIign="top"> 
<% ' call setupTab's Left Caption 



LeftCaptions l_name, l_descr, I_showPid,i_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN-"LEFT"> 
<% * call setupTab*s show 
dimUitles(l) 
l_titles(0) = "Expense Set" 

l_editProc "cditESetasp" 
i_addProc= "addESetasp" 
i_columnCOunt = 1 

myQ ^ "select e_set_name , RECJD "_ 
& "from expense_sets " _ 

& " where product Jd = " & SessionC'PRODUCTJD") _ 
& " Order by e_set_name " 

showSetupTable 1 Jitles, myQ, l_cditProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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<%@ Language= VBScript %> 
<!- # include fiie=".7support/global_constants.asp" -> 
<!- # include file==''.7support/dbConnection.asp" -> 
<!- #include fiie^^Jsupport/adoUtils.asp" -> 
<l- # include file='*../support/srcTab.asp" -> 
<l-#include fiIe=''../support/s€tupTab.asp'' -> 
<!- #include file-''../support/JavaScripts.asp'' -> 
<% 

!_this_file = "setupListCatasp" 
l_showPid = true 

if not ( sessionCProductJd") > " ) then 
Response.Redirectf*admin2a.asp?FR='' & i_thts_file ) 
end if 



I_name - "List Category" 

i_descr = "A broad category of related lists." & vbcr 
%> 

<html> 
<head> 

<titIcx%Response. Write l_name%x/title> 
</head> 

<body bgcolor=''99CCFF'' background=rygraphics/adminhorzsiice2.gir text=''#0O0O00" 

!ink="#000000'* vlink="#000000" marginwidth-="0" marginheigh^"0* ieftmargin="0" topmargin^"0"> 
<form method^^post" action name> 

<table width="660" border="0" ccllspacing=*'10" cenpadding="0'' valign^"top''> 

<tr valign-''top*'> 
<td vaUgn="top''> 
<% • calJ setupTab's Left Caption 

LcftCaptions I^name, i_descr, l_showPid, l_this_file 
%> 
</td> 

<td rowspan="6'' width="468*' valign-"top" ALIGN="LEFT'*> 
<% * call setupTab's show 
dim l_titles(l) 
l_tities(0) "List Category** 
l_tiUes(l) = "Description" 
I_editProc = "editListCatasp" 
l_addProc = "addListCat.asp" 
I_coiumnCOunt = 2 

myQ = "select list_cat_nanie,list_cat_descr, RECJD 
& - from Iist_Cats " 

& " where productJd"= " & SessionCPRODUCTJD") _ 
& " Order by list_cat_name " 

showSetupTable l_titles, myQ, l_cditProc,I_addProc, l_columnCOunt 

%> 
</td> 

</tr> 

</table> 
</form> 
</body> 
</htm!> 
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<%@ Language=VBScript %> 
<!" ^include fi!e=".7support/gIobai_constants.asp" -> 
<1- #include fiIe="../support/dbConnection,asp" -> 
<!- ^include fiIe=".ysupport/adoUtiIs,asp" -> 
<!- ^include file='',ysupport/srcTab.asp" -> 
<!- # include file=",./support/setupTab.asp'' -> 
<i- #include fiIe=",7support/JavaScripts.asp*' -> 
<% 

l_this_f!ie = "setupListName.asp" 
l_showPid ~ true 

if not ( sessionCProductJd**) > " " ) then 
Response.Redirect(''admin2a.asp?FR='' & I_this_file ) 
end if 



l_name = "List Name" 
l_descr - The name of a list" & vbcr 

%> 

<html> 
<head> 

<titlex%Response.Write l_name%x/tit[e> 
</head> 

<body bgcolor=''99CCFP background=".7graphics/adminhorzslicc2.gir text^-^OOOOOO" 

link-^^OOOOOO" vlink-"#O0OOO0*' marginwidth=''0'' marginheight=''0'' ieftmargin=*0* topmargin==''0"> 
<form method=*'post** action name> 

<table width="660*' border^-O" cellspacing="10'' ceUpadding="0'' valign=*'top"> 

<tr va!ign="top''> 
<td vaJign=*top*'> 
<% ' caii setupTab's Left Caption 

LeftCaptions I name, l_descr, l^showPid, I_this_file 
%> " 
</td> 

<td rowspan=*'6'' width="468'' valign="top'' ALIGN=''LEFT''> 
<% * caU setupTab's show 
dim Ijitles(l) 
l_tiiles(0) = "List Name** 
1j!tles(l) = "Description" 
l_editProc - "editListName.asp" 
I_addProc = "addListName.asp" 
l_coiumnCOunt = 2 

myQ ~ "select list_name, Hst_name_description , REC_ID * _ 
& " from list_namcs " _ 

& " where productjd = " & Session("PRODUCTJD") _ 
& " Order by !ist_name " 

showSetupTable I_titles, myQ, l_editProc,I_addProc, I_coIumnCOunt %> 

</td> 

</tr> 

</tabIe> 
</form> 
</body> 
</html> 
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<%@ Unguage= VBScript yo> 
<!- # include file==".,/support/global_constants.asp'' -> 
<f- # include file="../support/dbConnection.asp'* --> 
<!- # include file=*'../support/adoUtils.asp" -> 
<!- #include file=''../support/srcTab,asp'' -> 
<!--# include file=".7support/setupTab.asp** ~> 
<!-#include f!le=*'../suppOTt/JavaScripts.asp'' -> 
<% 

l_this_file - "setupListSegmentasp" 
l_showPid - true 

if not ( sessionCProductJd") > " " ) then 
Response.Redirect("admin2aasp?FR=" & l_this_ftle ) 
end if 



I_name = "List Segment" 

i_descr = "A specific selection from a list (i.e. 90 day purchasers, expires, male). " & vbcr 
%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/title> 
</hcad> 



<body bgcolor^"99CCFF" background="Jgraphics/adminhor2slice2.gir text="#0OO000'' 

link="#000000'' v!ink="#OO0000'' marginwidth^-O" marginheight^^O" leftmargin=''0'* topmargin-=''0"> 
<fomi mcthod-''post'' action nanic> 

<table width=''660'' border="0" cellspacings" 10" cellpadding="0" va!ign="top"> 

<tr valign="top"> 
<td valign="top"> 
<% ' call setupTab's Left Caption 



LeftCaptions "List Segment", i_descr, l_showPid, l_this_file 
%> 
</td> 

<td rowspan="6" width-"468" va!ign="top" ALIGN-"LEFT"> 
<% ' call setupTab's show 
dim i_tit!es(l) 
l_titles(0) = "List Segment" 
!_titles(l) = "Description" 
l_editProc = "editListScgmcntasp" 
!_addProc - "addListScgment.asp" 
l_coiumnCOunt = 2 

myQ = "select list_segment_name, list_segment_description , RECJD " _ 
& " from list_segments " _ 

& " where product Jd = " & SessionCPRODUCTJD") _ 
& " Order by list_segment_name " 

showSetupTable Ijitles, myQ, l_editProc,l__addProc, l_coIumnCOunt %> 

</td> 



</tr> 

</tabie> 
</form> 
</body> 
</html> 
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<%@ Language= VBScript %> 
<!- # include fiIe=''.7support/globaI_constants.asp'' — > 
<!- # include file-"„/support/dbConnection.asp*' -> 
<!- # include fiie=".7support/adoUtils.asp" -> 
<[- # include ftle=*.7support/srcTab.asp" -> 
<!- # include fiIe=''.7support/setupTab.asp" -> 
<1- # include fi!e===**.7support/javaScripts,asp" -> 
<% 

l_this_file = "setuppanelpackage.asp" 
l_showPid - true 

if not ( sessionfProductJd") > ) then 
Response.Redirect(*'admin2a.asp?FR=" & l_this_rile ) 
end if 

l_name - "Panel Package" 
l_descr = ''The code or description of a specific mailed package/ & vbcr 

%> 

<html> 
<head> 

<titIe>Panel Packagc</title> 
</head> 

<body bgcolor==''99CCFF'' background==r7^phics/adminhof2sIice2.gir text==**#000000'* 

link='*#000000" vlink^^^OOOOOO- marginwidth-^O" marginheight-^O" leftmargin=''0'' topmargin=''0"> 
<form method="post'' action name> 

<table width=*'660'' border=''0'' cellspacing="10** cellpadding^-O" vaiign==*'top''> 

<tr vaiign=''top''> 
<td vaIign--top"> 
<% * call setupTab's Left Caption 

LeftCaptions l_name, l_descr, l_showPid,l_this_f!le 
%> 
</td> 

<td rowspan^-e** width^MeS" vaiign-^top" ALIGN^''LEFT*'> 
<% ' call setupTab's show 
dim l_titles(l) 

l_titles(0) = "Panel Package" 
l__titles(l) = "Description" 

l_editProc = "editPanelPackage.asp" 
l_addProc = "addPanelPackagc.asp" 
l_columnCOunt ~ 2 

myQ = "select Package name, Package^description, RECJD "_ 

& " from prod_panel_package where product Jd - " & Session("PRODUCT_ID") _ 

& " Order by Package jiame " 

showSetupTable Ijitles, myQ, !_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</tabIe> 
</form> 
</body> 
</htmi> 
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<%@ Language==VBScnpt %> 

<!— # include file=''../support/gIobai_constants,asp" -> 

<!- # include file=''.ysupport/dbConnection.asp" -> 

<!- # include file^'^.isuppoit/adoUtils.asp*' --> 

<!- # include file=" Jsupport/srcTab.asp" --> 

<!- # include rile=''../support/setupTab.asp" -> 

<!- # include file=".ysupport/JavaScripts-asp" -> 

<html> 
<head> 

<tit!e>Panel Sub Type</tit]e> 
</head> 

<body bgcolor-"99CCFF'* background=".7graphics/adminhor2slice2.gir text--#0OOO00'' 

Hnk=*'#O0OO00'' viink="#000000- marginwidth="0" marginheight=''0'' leftmargin='*0'' topmargin-''0"> 
<form method=*'post" action namo 

<lable width='*660'' border^"©** cellspacing=*'10*' cellpadding=**0* vaIign="top''> 

<tr valign="top*'> 
<td vaIign="top*> 
<% • call setupTab's Left Caption 

l_descr - "Another field used to further define a set of related Panels (if necessary), (i.e. sweepstakes, newstand, inserts)." & vbcr 

I_showPid - fdse 

LeftCaptions "Panel Sub Type", l_descr, l_showPid,I_this_f(le 
%> 
</td> 

<td rowspan="6'' width="468'' vaiign=*'top'' ALIGN=''LEFr> 
<% ' call setupTab^s show 
dim i_titles(l) 

l_tiUes(0) = "Panel Sub Type" 
I_titles( I ) - "Description" 

l_editProc "edttPanelSubType.asp" 
i_addProc - "addPanelSubType.asp" 
1_coiumnCOunt = 2 

myQ = "select panel_sub_type_name,panel_sub_type_descr, RECJD " _ 
& " from corp_panel_sub_type " _ 
& " Order by panel_sub_type_name " 

showSetupTabie Ijitles, myQ, i editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</tabIe> 
</form> 
</body> 
</htmI> 
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<%@ Language^VBScript %> 
<!- #indu<ie file=''.ysupport/global_constants.asp" -> 
<!- #inciude file=".ysupport/dbConnection.asp" -> 
<l— #inciude file=**,7support/adoUtiIs.asp'' -> 
<!— ^include fiIe^*'.,/support/srcTab.asp" — > 
<!-#inciude fiIe=''../support/setupTab.asp'' -> 
<!- # include fiie=*'.7support/JavaScripts.asp'' --> 

<html> 
<head> 

<title>PaneI Sub Type</titie> 
</head> 

<body bgcoior="99CCFF" background-"../graphics/adminhorzsIice2.gir text=''#O0O0OO'' 

Iink=**#0OOOO0" vlinic="#O00OO0'' marginwidth^'O" marginhe!ght=''0'' leftmargin="0" topmargin="0"> 
<form method-''post*' action name> 

<table width^^eeO" border^'O" cellspacings" 10" cenpadding-"0" valign="top''> 

<tr vaJign=''top''> 
<td valign-''top*'> 
<% • call setupTab's Left Caption 

l^descr = "A field used to define a set of related panels by test method (i.e. price, offer, term). " & vbcr 
1 showPid = false 



LcftCaptions "Panel Test Type", i_descr, LshowPid, l_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top'' ALIGNs"LEFr> 
<% ' call setupTab's show 
dimljitles(l) 

Ijitles(O) = "Panel Test Type" 
l_titles(l) "Description" 

l_editProc = "editPanelTestType.asp" 
l^addProc ^ "addPanelTestType.asp" 
l_columnCOunt = 2 

myQ = "select panel_test_type_name,panel_test_type_descr, RECJD " _ 
& " from corp_panel_test_type " _ 
& " Order by panel_test_type_name " 

showSetupTable Ijitles, myQ, l_editProc,l_addProc, i_coIumnCOunt %> 

</td> 

</tr> 

</tabie> 
</{0Tm> 
</body> 
</html> 
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<%@ Language=VBScript %> 

<!- #include file=".ysupport/global_constants.asp*' -> 

<!- #include file=''.7support/dbConnection.asp** -> 

<!- #include file=''„/support/adoUtiIs.asp** -> 

<l- #include file^^.ysupport/srcTab.asp" -> 

<!- #include file=''.7suppoTt/setupTab.asp" -> 

<!- #include file=="../support/JavaScripts.asp'' -> 

<html> 

<head> 

<title>Panei Type</tit!e> 
</head> 

<body bgcoloi-*'99CCFF" background="../graphics/adminhorzsIice2.gir text=''#00000O^ 

link-"#000000" vlink="#000000'* marginwidth="0^ marginheight^^O" leftmargin=^''0" topmargin=-0'*> 
<form method=''post'' action name> 

<table width=''660*' border^^O" ceilspacing=*'iO'' ceilpadding^-O" vaIign==''top''> 

<tr valign="top**> 
<td vaIign=*'top''> 
<% ' call setupTab's Left Caption 

I_descr - "A set of related panels typically used to distinguish control panels from test panels. " & vbcr 

I_showPid = false 

LeftCaptions "Panel Type". l_descr, l^showPid, l_this_file 
%> 
</td> 

<td rowspan^^e" width=''468*' vaiign="top" AUGN=*LEFT''> 
<% * call setupTab's show 
dim I_tit]es(l) 
iJitles(O) = "Panel Type" 
i_tities{I) = "Description" 

l_cditProc = "editPanelType.asp" 
l_addProc - "addPanelType.asp" 
l_columnCOunt = 2 

myQ = "select panel_type_name,panel_type_descr, R£C_ID " _ 
& " from corp_panel_type " _ 
& " Order by panel_type_name " 

showSetupTable I titles, myQ, l_editProc,I_addProc, l_columnCOunt %> 

</td> 

</tr> 

</lable> 
</form> 
</body> 
</html> 
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<%@ Language= VBScript %> 
<!- #include file=" Jsupport/gIobaI_constants.asp" -> 
<!- # include file=*'.ysupport/dbConnection.asp** -> 
<1- #include file^^.Vsupport/adoUtils.asp" -> 
<]- ^include fllc=^7suppo^t/s^cTab.asp" -> 
<1-#include file==".ysupport/setupTab.asp" -> 
<l— #inciude file==''.ysupport/JavaScripts.asp" -> 
<% 

I_this_file = "setupPriorSrcDescasp" 
l_showPid - true 

if not ( sessionCProductJd") > ) then 

Response.Redirect(-admin2a.asp?FR^" & I_this_file ) 
end if 



l_name = '^Source Identifier** 
l_descr = "Describes Prior Sources" & vbcr 
%> 

<htral> 
<head> 

<titIe>Prior Source Descriptton</titIe> 
</head> 

<body bgcoior=''99CCFF" background=''.ygraphics/adminhor2slice2,gir text^^SOOOOOO" 

linfc="#0OO00O'' viinlc==''#0OOO0O'* marginwidth=="0'' marginhcight=''0** leftmargin^-O" topmargin=**0-> 
<form mcthod^^post* action name^fonnl id=formi> 

<table width='*660'' border=''0" cellspacings" 10** ceUpadding="0" valign=^"top"> 

<tr vaiign="top''> 
<td vaIign="top*'> 
<% ' call setupTab's Left Caption 

LeftCaptions l_name, l_descr, 1 showPid,l_this_file 
%> 
</td> 

<td rowspan^^e** width-"468" valign="top" ALIGN="LEFT''> 
<% ' call setupTab's show 
dim l_titles(6) 

l_titles(0) = "Source Identifier" 

Ijities(l) = "Renewal Prior Source Description" 

I_titles(2) = "Billings Current Source Description" 

I_tities(3) ^ "Model Source Category" 

l_titles(4) = "Model Source Description" ' 

i_titles(5) - "Agent Source Description" 

!_cditProc - "editPriorSrcDesc.asp" 
l_addProc = "addPriorSrcDesc.asp" 
l_columnCOunt = 6 

myQ = "SELECT prior^sourccjdentifier, prior_source_desc, billing;_^cur_src_desc, model_source_cat, model_source, 
agent_src_desc, REC_ID " _ 

& " FROM prior source_desc WHERE " _ 

& " Product Jd -" & Session("PRODUCTJD") _ 

& " ORDER BY prior_sourccJdentifier " 

showSctupTable Ijitles, myQ, !_editProc,l_addProc, i_coIumnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</htmI> 
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<%@ Language=VBScript %> 
<!" ^include file^^Jsupport/global^constants-asp" ~> 
<!- #include fiie=**.Ysupport/<lbConnection.asp" ~> 
<!- #include fiIe=".7support/adoUtils.asp*' -> 
<!-#incIude flle=''„/support/srcTab.asp'* -> 
<!-- #include file^^Jsupport/setupTab-asp" -> 
<!- #inciude file=''../support/JavaScripts.asp'' -> 
<% 

l_this_file = "setupRSetasp" 
l_showPid = true 

if not ( sessionCProductJd") > " ) then 
Response.RedirectCadmin2a.asp?FR^'' & l_this_file ) 
end if 



l_name - "Revenue Set" . 

1 descr = "Revenue over and above subscription revenue, applied to a Campaign, Panel or Key. (i.e. List Rental Revenue, 

Advertising Revenue). " 
%> 

<htnii> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 



<body bgcolot=''99CCFF'* background=r-/graphics/adminhorzslice2.gir text=''#000000" 

iink^-^OOOOOO" vlinic=''#OO0O00" marginwidth^^O" marginheight="0" leftmargin^^O" topmargm=''0": 
<fonn method-^posf action name=forml id=^orml> 

<table width-"660^ border="0'* cellspacing=''10^ cellpadding="0" vaiign="top''> 

<tr valign=*top"> 
<td vaiign=''top''> 
<% ' call seiupTab's Left Caption 

LeftCaptions l_name, l_descr, )_showPid, l_this_file 

%> 
</td> 

<td rowspan='*6'' width=*'46S'' valign^^top" ALIGN=^''LEFT'*> 
<% ' call setupTab's show 
dim l_titles(l) 
l_titles(0) = "Revenue Set" 

!_cditProc = "editRSetasp" 
l_addProc= "addRSetasp" 
l_coiuninCOunt = 1 

myQ= "select r_set_name, RECJD 
& "from revenue_sets " _ 

& " where productjd = " & Session("PRODUCTJD") _ 
& " Order by r_set_name " 

showSetupTable l_titles, myQ, l_editProc,I_addProc, l^columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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<%@ Language=VBScript %> 
<!- ^include file='*../support/global_constants.asp'* -> 
<!-#incIude filc^^JsuppoTt/dbConnection.asp" -> 
<!- ^include file^rysupport/adoUtiis.asp" -> 

include file=**../support/srcTab.asp" -> 
<!- # include file^^.ysupport/setupTab.asp" -> 
<!- #include fiie=".7support/JavaScripts.asp'' -> 

<html> 
<head> 

<title>Source Description</titIe> 
</head> 

<body bgcobr="99CCFF** background=".7graphics/adminhorzsHce2.gir text=''#O0000O" 

iink^-^OOOOOO" vltnk==''#000000** marginwidth='*0'' margmheight="0*' leftmargin="0" topmargin-''0' 
<fonn method^^posf* action name=forml id=forml> 

<table width=-660- border^^O" ceilspacing=MO" ccllpadding=''0'' valign='*top''> 

<tr valign-"top*> 

<td vaIign=''top"> 

<% * call setupTab's Left Caption 

l_descr = "Describes a specific channel of sale." & vbcr 

!_showPid = false 

LcftCaptions "Source Description", I_descr, l_showPid, l_this_fUe 
%> 
</td> 

<td rowspan="6'' width=*'468'' valign^^top" ALIGN=-"LEFT"> 
<% ' call setupTab's show 
dim I_titles(l) 
l_titles(0) = "Source" 
Ijitles(l) = "Description" 

l_editProc = "editSourceName.asp" 
l_addProc = "addSourceName.asp" 
i_coiumnCOunt = 2 

myQ = "select u_source__name, u_source_description, REC_ID " _ 
& " from Source_descriptions " _ 
& " Order by u_source_name " 

showSetupTable Ijitles, myQ, I_editProc,l_addProc, l_coIumnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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<%@ Language=VBScript %> 
<% Response. RedirectCRequestFormC'setupTab")) %> 
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<%@ Language=VBScript%> 

<!- # include fiie=''../support/gIobaI_constants.asp'' -> 
<!— ^include fiIe-".7suppor1/dbConnection,asp" -> 
<!— ^include file=''.7support/adoUtiIs.asp*' -> 
<!- ^include fiIe=''../support/srcTab.asp'' ~> 
<!- #include file-"../support/JavaScripts.asp'' — > 

<% 

I_this_file = "tabautosetup.asp" 
l_showPid - true 

if not ( session(''Product_id") > " - ) then 

Response. Redirect('*admm2a-asp?FR=*' & ljhis_file ) 

end if 

If RequesLformCRUNAUTOSETUP") o **" then 'njn autosetup_wi2ar<i stored proc 
*response.write ''<font si2e='5*>Executing AutoSetup Wizard ,„</fontxp>'' 
objCMD-ActiveCofinection = strSQLOLEDB 
objCMD^CommandText - "autosetup_wizard'' 
ofajCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.refresh 

objCMD.Paraineters( I ), Value ^ cint(0) '0 for no returned text, 

non-zero to print output 

objCMD.Parameters(2).vaiue ~ cint(Session("ProductJd'')) 'product Jd 

Set TempNonSessionVar = objCMD.ExecuteQ 
'response.redirect("tabautosetup.asp*) 

end if 

l_this_filc - **admin4a,asp*' 

SessionCrcferjage") = ''adniin4a.asp'* 
Sessionf refer_TitIe'*) = "Source" 

%> 

<headxtitle>tabautosetup.asp</titIe> 

<% LorieScripts %> 

</head> 

<body bgco]or^"#99CCFF*' vHnk="00Q0O0" Iink="003366'' 

onUad="MMj)reloadIniagcsCgraphics/edittabierol222.gif;#9458992260330;MMj5reioadIm^^ 
5Z99269SZ2T> 

<% • <body bgcolor=*'#99CCFF'' vlink="000000" link-''003366''> %> 

<table width=''640'' border^"0- ce!Ipadding=''2*'> 
<% prevSelections (3) %> 

<form mcthod='*post'' action=''tabautosetup,asp* id=''fonn2'' name=''form2''> 
<lr vaIign=''BOTTOM"> 
<td width=^**65"> 

</td> 

<td width="500"> 
<p> <% 

strSQL = "select source_name, srcjndicator, vaHd_from_date, valid jo_date, setup_mask, e_set_name, rec_id & _ 
" from autosetup_scheme " & _ 
•* where productjd = " & SessionCPRODUCTJD'*) & _ 
" order by src_cat_name 

%> 

</td> 
</form> 
</tr> 

<tr valign-''top''> 
<td width="640" colspan-"3"> 
<p> </p> 
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</td> 
</tr> 
</tafaie> 
<% 



l_query = strSQL 

l_columnCount = 6 
l^addProc = *add_autosetup.asp'' 
l_editProc = -edit^autosetup.asp" 
dim l_title(6), l_coiumnWidth(6) 



ljitle(0) = " Source" 
Ijtitle(I) = " Source Indicator " 
Ijitle(2) = - Select Date From " 
l_title(3) = " Select Date To " 
l_title(4) - " Setup Mask 
rtitle(5) = - Expense Set " 
l_columnWidth(0) = n66" 
1 coiuninWidth(l)-Mr 
rco!umnWidth(2) = *50" 
l_columnWidth(3)-"50'' 
1 columnWidth(4) = "50" 
rcolumnWidth(5) = "50'' 



%> 

<form method=post action^"tabautosetup.asp" id="formid" name=="formnaine"> 
<ahrcf^"http7Avvmjmtnetwork.com/help/auto_setup_help/index.htm^ 
lnstructions</a><brxbr> 

<input type-"SUBMrr" VaIue="Run Auto-Setup Wizard" Name-" RUN AUTOSETUP" id-"RUNAUTOSETUP"> 
</form> 

<font size='5'>AutoSetup Schemes</fontxp> 

<% adminTable LTitle, l_Query, l_editProc,i_addProc,l_coIumnWidth, L_ColumnCount 



"& 



rec id " & 



l_query = "select src_cat_name, campaign_code, campaign_descr!ption, campaign_datc, paneUchemc, recjd 

' from autosetup_campaign_def " & _ 

* where productjd = " & Session("productJd") & _ 
* order by src_cat_name, campaign_description, campaign_code " 

•redim l_title(4) 

'redim !_columnWidth(4) 

l_coiumnCount = 5 
l_addProc = *'add_campaign_def-asp" 
i_editProc = •'edit_campaign_def asp" 

l_title(0) = " Source Category " 

l_title(l) = " Campaign Code " 

l_titie(2) = " Campaign Description " 

I Jitle(3) = " Campaign Date " 

l_titie(4) = * Panel Scheme " 

l_columnWidth(0) = "50" 
l_columnWidth(l) = "50" 
t_columnWidth(2) = "50" 
l_columnWidth(3) = "50" 
Lcolumnwidth(4) = "50" 
%> 
<p> 
<p> 

<font size- 5*>Campaign Name Derinitions</fontxp> 

<% adminTable \_T'itk, l_Query, l_editProc,l_addProc,l_columnWidth, L_ColumnCount 
l_query "select source_name, sourcejndicator, prior_sourceJndicator, valid_from_date, valid jo_date, 

' from autosetup_renewai_psdef " & _ 

" where productjd = " & SessionCproductJd") & _ 

' order by src__cat_name " 
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l_coiumncount = 5 

I_addProc = "add_renewal_psdef.asp" 
l_editProc ~ "edit_renewal_psdef.asp" 
l_tttle(0) - " Source " 
i_title(l) = " Source Indicator 
i_title(2) = " Prior Source Indicator " 
ijitle(3) = '' Valid From" 
l_title(4) = * Valid To " 

I columnWidth(0) = ''50" 
rcoIumnWidth(I) = "50^ 
l_coiumnWidUi(2) = ''100" 
LcoIumnWtdthO) = "50" 
l_columnWidth(4) = ''50" 
%> 
<p> 
<p> 

<font size'=''5'>Renewal Prior Source Defmitions</font> 
<p> 

<% adminTable l_Titie, LQuery, l_editProc,l_addProc,l_columnWidth, L_ColumnCount %> 

<p> 

<p> 

<% 

l_query - "select panei_scheme, panel_codes» pancl_name, rec_id ** & _ 
" from autosetup_panel_def ** & _ 
" where product Jd -"Sc SessionCproductJd") 
" order by panel^scheme " 

l^columncount = 3 
l^addProc ~ "addjjaneMef.asp** 
l_editProc - "edit^panel^dcfasp" 
1 Jitle(0) = " Panel Scheme " 
IjitleO) = " Panel Codes " 
l_tiUe(2) = '' Panel Name" 

l_columnWidth(0) = "50" 

l_columnWidth(I) - "100" 

l_columnWidth(2) = "50" 

%> 

<p> 

<p> 

<font size=='5*>Panel Name Defmitions</font> 
<p> 

<% adminTable i_TitIe, l_Query, i_editProc,l_addProc,l_columnWidth, L_ColumnCount %> 



</form> 
</body> 
</htmI> 
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IMT REPORTING SYSTEM 
STORED PROCEDURES 
(USER) 



^STORED PROCEDURE ^ 

Add keys 

Addrptdef 

Autosetup wizard 

Cascade update 

Concatccodes 

Concat p codes 

Create rlOl topiine 

Del key 

Do 101 flow seldatefix 

Doavail4Qlkeys 

Doavaii40 1 keysbypid 

Doavaiikeys 

Doavailkeysbypid 

Dobaserankinfo 

Docampesets 

Docamprsets 

Doestmaxeffort 

Domw 

Dopanelesets 

Dopaneirsets 

Doprodsetup 

DorlOl summary 

Dor401 summary 

Dorecyclekey 

Dorecyclepanelkey 

Dosourceinds 

Dosummary 

Dosummarydb 

Expenses 

Getcorpinfo 

Maxbilleffort 

MaxefFort 

Maxgifteffort 

Pagedquery 

Rebuild rpt cats 

Show columns 

Sp add autosetup schemes 

Sp add campaign 

Sp add campaign def 

Sp add corp pane 1 sub type 

Sp add corp panel test type 

Sp add corp panel type 

Sp add keys 

Sp add keys2 

Sp add_panel 

Sp add_panel def 

Sp add_prior source desc 

Sp add prod camp status 
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ST<3RBPJERaG£ljj[%gJ 
Sp add_prod camp type 

Sp add prod e set 

Sp add jprod list cat 
Sp add prod list name 

Sp add prod list segment 

Sp addjprod panel package 

Sp prod r set 

Sp add renewal psdef 

Sp add source 

Sp add source description 

Sp cascade product id 

Sp deietecamp statuses 

Sp deletecamp types 

Sp deletepanei subtypes 

Sp deletepanel testtypes 

Sp deletepanei types 

Sp deleterpt def 

Sp edit autosetup 

Sp edit autosetup campaign def 
Sp edit autosetup panel def 
Sp edit_autosetup_renewal_psdef 

Sp edit campaign 

Sp edit corp panel sub type 
Sp edit corp panel test type 

Sp edit corp panel type 

Sp edit key 

Sp edit panel 

Sp edit prior source desc 

Sp edit_prod camp status 

Sp edit prod camp type 

Sp edit prod e set 

Sp edit prod list cat 

Sp edit prod list name 

Sp edit_prod list. segment 

Sp edit prod panel package 

Sp edit prod r set 

Sp edit source 

Sp edit source description 

Sp loginfo 

Sp deletecamp types 

Sp deletepanel subtypes 

Sp deletepanel testtypes 

Sp deletepanel types 

Sp deleterpt def 

Sp edit autosetup 

Sp edit autosetup campaign def 
Sp edit autosetup panel def 
Sp edit autosetup renewal psdef 

Sp edit campaign 

Sp edit corp panel sub type . 
Sp edit corp panel test type 
Sp edit corp panel type 
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Sp_edit_key 
Sp edit panel 



Sp edit prior source desc 
Sp edit j3rod camp status 
Sp edit prod camp type 

Sp edit prod e set 

Sp edit_prod list cat 

Sp edit prod list name 
Sp edit prod list segment 
Sp editj3rod panel package 

Sp edit^rod r set 

Sp edit edit source 

Sp edit source description 

Sp loginfo 

Sp removeduplicate 101 keys 
Sp removeduplicate40 1 keys 
Sp updatecamp statuses 

Sp updatecamp types 

Sp updatepanei subtypes 
Sp updatepanel testtypes 

Sp updatepanel type 

Sp getrpdist 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 3 of 142 




IMT Subscription Marketing Reporting System 



Procedure Name: Add keys 

Script Date: 1/14/99 3:43:07 PM ******/ 
Script Date: 1/12/99 1 1:05:37 PM ******/ 
Script Date: 11/28/98 2:31:13 PM ******/ 
Script Date: 1 1/17/98 2:43:36 PM *****!*=/ 
Script Date: 10/19/98 6:03:58 PM ******/ 
Script Date: 10/6/98 7:56:48 PM ******/ 
Script Date: 10/6/98 11:08:02 AM******/ 

@fiinjproino_key varchar (25), 
@dt_valid_from smalldatetime, 
@dt_valid_to smalldatetime, 
@src_cat_name varchar(30), 
@src_indicator char (3), 
@panel_name varchar (250), 
@camp_name varchar (250), 
@product_id numeric(8,0), 
@source_name varchar(250) 

AS 

insert into keys 
( 

full_promo_key. 



/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo,add_Keys 

/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo,add_Keys 

/****** Object: Stored Procedure dbo.add_Keys 

/****** Object: Stored Procedure dbo.add_Keys 



dt__valid_from, 

dt_valid_to, 

src_cat_name, 

src_indicator, 

panel_name, 

camp_name, 

product_id, 

source_name 

) 

values 

( @full_promo_key, 
@dt_valid_from, 
@dt_valid_to, 
@src_cat_name, 
@src_indicator, 
@panel_name, 
@camp_name, 
@product_id, 
@source_name 

) 

Delete from avail_keys where fuli_promo__key @lull_promo_key and product_id==@product_id 
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Procedure Name: Addrptdef 



/* 

( 

@parameterl datatype = default value, 
@parameter2 datatype OUTPUT 

) 

*/ 

(@rpt_^oup varchar(75), 
@rpt_title varchar(75), 
@rpt_description varchar (250), 
@rpt_selFormuIa varchar(lOOO), 
@rpt_path varchar(250), 
@rpt_paraml varchar(50), 
@rpt_parani2 varchar(50), 
@rpt_param3 varchar(50), 
@rpt_param4 varchar(50), 
@product__id varchar(250), 
@login varchar(50) 

) 

As 

/* set nocount on */ 
Insert into rpt_Defs 
(rpt_£roup,rpt jitle,rpt_description,rpt_selFoniiula,rpt jDath,rpt jaram 1 ,^ 

Values 

(@rpt_group,@rptJitIe,@rpt_description,@rpt_selFoniiula,@rpt_j)ath,@^^ 
uct_id) 

execute sp_LogInfo ©product Jd,@login;Saved Report',@rpt_title 
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Procedure Name: Autose tup wizard 

@verbose int - 0 means no text, non-zero means display text messages 
, @product_id int 

as 

begin —autosetup wizard 

if ©product Jd > 0 -product id is set to -1 to run autosetup_wizard for ALL PRODUCTS. This happens is 

doavaiUOlkeys 

begin 

declare avail_keys cursor 
for select product_id 

, full_promo_key 

, fulfiliment_house 

, dt_valid_to 

, source_identifier 

, mail_qty 

from avail_keys 

where fulfillment_house is not null 

and product_id - @product_id 

—or product_id = 360 

-or full_promo_key like "6RAA_K_529" 

end 
else 
begin 

declare avail_keys cursor 
for select product_id 

, full_j)romo_key 

, fulfillment__house 

, dt_valid_to 

, sourcejdentifier 

, mail_qty 

from avail_keys 

where fulfillment_house is not null 

end 

-Avail Key Vars 

—declare @product_id varchar(50) 
declare @avail__key varchar(50) 
declare @fulfillment_house varchar(50) 
declare @dt_vaiid_to datetime 
declare @source_identifier char(l) 
declare @mail_qty int 

-Campaign vars 

declare @campaign_code varchar(50) 

declare @campaign_description varchar(50) 

declare @rec_id int 

declare @src_indicator char(3) 

declare @camp_name varchar(250) 

declare @title_name varchar(250) 

declare @camp_date_fr datetime 

-Setup Wizard vars 
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declare @setup_mask varchar(50) 
declare @src_cat_name varchar(50) 
declare @source__name varchar(250) 
declare @prior__source_indicator varchar(2) 
declare @valid_from_date datetime 
declare @valid_to_date datetime 
declare @grp_name varchar(50) 
declare @e_set_nanie varchar(50) 

-panel vars 

declare @panel_name varchar(250) 
declare @panel_code varchar(250) 
declare @panel_scheme varchar(50) 

—local vars 
declare @i int 

declare @number_of_valid_schemes int 



if @verbose o 0 print "Starting 
open avail_keys 

fetch next from avail_keys into @product_id, @avail_key, @fulfillment_house, @dt_valid Jo, 
@source_identifier, @mail_qty 

while @@fetch_status = 0 -Loop through avail keys and attempt to assign them to campaigns 
begin 

if (gverbose o 0 print "Avail Key " + @avail_key 

if @verbose o 0 print "Source Identifier " + @source_identifier 

-Get autosetup vars for schemes matching current key 

set @setup_mask = null 

-If the number of valid schemes is greater than zero and the source category is renewals 
then the source is split 

-and a match is required from the prior source definition table(autosetup_renewal_psdef) 
select @number__of_valid_schemes = count(*) 

from autosetup_scheme 

where product_id = @product_id 

and valid_from_date <= @dt__validJo 

and validjo_date >= @dt_valid_to 

and src_indicator ~ @source_identifier 

— GREGG ADDED THE FOLLOWING CONDITION TO THE VALID 

SCHEME COUNTER 

and setup_mask = @setup_mask 
select @setup_mask = setup_mask 

, @src_cat_name = src_cat_name 

> @src_indicator = src_indicator 

, @source_name = source_name 

, @valid_from_date = vaUd_from_date 

, @valid__to_date = valid_to_date 

) @grp__name = grp_name 

, @e_set_name = isnuil(e_set_name/'Undefined") 

from autosetup_scheme 

where productjd = @product_id 

and valid_from_date <= @dt_vaiid_to 

and valid_to_date >= @dt_valid_to 

and src_indicator = @source_identifier 

and len(setup_mask) = len(@avail__key) 
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if @verbose o 0 print "Source Indicator => " + @src_indicator 

if @setup_mask is not null -Build campaign code based on setup mask, otherwise move 

on to next scheme 

begin 

set @campaign_code = null 
set @camp_name = null 

"if len(@avail_key) = 1 1 and @src_cat_name = "RENEWALS" set 

@setup_mask = "SxxxxZZxCCC" 

if ©verbose o 0 print "Found an applicable setup mask! => " + @setup_mask 

if @fiilfillment_house = "CENTROBE" or @fuIfillment_house = "PALM 
COAST" exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if @fulfillment_house = "CDS" and (@src_cat_name = "DTP" or 
@src_cat_name = "GIFT") exec concat_c_codes @setup_mask, @avail_key, @campaign_code output 

if @fulfillment_house = "CDS" and (@src_cat_name = "RENEWALS" or 
@src_cat_name = "BILLING") 

begin -set code to pos2 & last pos then match value with def table and set 

description 

set @campaign_code = substring(@avail_key,2,l) + 
substring(@avail_key,len(@avail_key), 1 ) 

end -if 

if ©verbose o 0 print "campaign code =>" + @campaign__code 

select @camp_name = campaign_description 
, @camp_date__fr = campaign_date 

from autosetup_campaign_def 
where campaign_code = @campaign_code 
-and source Jdentifier = substring(@avail__key,l,l) 

and src_cat_name - @src_cat_name 
and productjd = @product_id 

if @camp_name is null -Build new campaign name 
begin 

set @camp_name = "" 

if @verbose o 0 print "Source Category Name ==^> " + 



@src_cat_name 
@fulfillment_house 



if @verbose o 0 print "Fulfillment House ^ 

if @fulfillment_house = "CENTROBE" 
begin 



if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@camp_name = substring(@avail_key, 6, 4) -f " Campaign " + @campaign_code 

-if @src_cat_name = "RENEWALS" set @camp_name = 

"Expire " + @campaign_code 

if @src_cat_name = "RENEWALS" 
begin 

set @camp_name = null 
select @camp_name = campaign_description 
, @camp_date_fr = campaign_date 

from autosetup_campaign_def 
where src_cat_name = @src_cat_name 
and campaign_code = @campaign_code 
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@canipaign_code 



and productjd = @product_id 
if @camp_name is null 
begin 

set @camp_name = "Expire " + 
set @camp_date_fr = null 

end 



end 

if @src_cat_nanie = "BILLING" set @camp_name = 
substring{@avail_key,5,2) + " Credit Period " + @cainpaign_code 

end 

if @fulfiliment_house = "PALM COAST" 
begin 

if @src_cat_name = "DTP" or @src_cat_name = "GIFT" set 
@camp_name - substring(@avail_key, ien(@avail_key) -3,4) + " Campaign " + @campaign_code 

if @src_cat_name = "RENEWALS" set @camp_name = 
substring(@avail__key, Ien(@avail_key) - 3, 4) + " Expire " + @campaign_code 

if @src_cat__name = "BILLING" set @camp_name = "Credit 

Period " + @campaign_code 

end 

if @fuIfillment_house - "CDS" 
begin 

if @src_cat_name = "DTP" or @src_cat_naine ^ "GIFT" 
begin 

if substring(@avail_key,len(@avail_key) - 1,2) < 8 
begin 

set @camp_name = "200" + 
substring(@avail_key,len(@avail_key) - 1,2) + " Campaign " + @campaign__code 

end 

else 

begin 

set @camp_name = "199" + 
substring(@avail__key,len(@avail_key) - 1,2) + " Campaign " + @campaign_code 

end 
-end -if 

end 

if @src_cat_name = "RENEWALS" set @camp_name = 

@campaign_code 

if @src_cat_narae = "BILLING" set @camp_name = 

@campaign_code 

end 

if @camp_name is null set @camp_name = "Auto setup Campaign - 

Fulfillment House not Set!!!" 

end -if 

if @verbose o 0 print "Campaign Name => " + @camp_name 

—set prior source indicator 
set @i 0 

set @prior_source_indicator = "" 
while @i <= len(@setup_mask) 
begin 

set @i = @i + 1 
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if substring{@setup_mask,@i,l)="Z" set @prior_source_Lndicator = 
@prior_source_indicator + substring(@avail_key, @i,l) 
end -while 

if @verbose <> 0 print "Prior Source Indicator => " + @prior_source_indicator 
—set source name from renewal table 

—if the number of schemes is > 1 then the source is split - a match must occur 
if @src__cat_name = "RENEWALS" and @number_of_valid_schemes > 1 set 



@source_name = null 



if @src_cat_name = "RENEWALS" select @source_name = source_name 

from autosetup_renewal__psdef 
where product_id = @product_id 
and src_cat_name = "RENEWALS" 
and patindex{'%' + 



substring(@avail_key, 1,1) + '%', source_indicator) > 0 

substring(@avaii_key, 1,1) 
@prior_source_indicator 



and @dt_vaiid_to >= valid_from_date 
and @dt_valid_to <- valid_to__date 
—and source_indicator = 

—and prior_source_indicator = 

and patindex(*%' + @prior_source_indicator 

+ '%', prior_source_indicator) > 0 

if @verbose o 0 print "Source Name => " + @source_name 

if @source_name is null and @verbose o 0 print **No match to prior source in 

the psdef table!"-if no match was made, move to next scheme 
else 
.begin 

-if a campaign exists use it, if not then create campaign 
set @rec_id null 
select @rec_id = rec_id 

from campaigns 

where (campaign_code - @campaign_code or camp_name = 

@camp_name) 

and src_indicator = @src_indicator 
and src_cat_name = @src_cat_name 
and product_id = @productJd 
and source_name = @source_name 
—and camp_date_fr <== @dt_valid_to 
—and camp_date_to >= @dt_valid_to 

if @rec_id is not null 

select @camp_name = camp_name 
from campaigns 
where rec_id = @rec_id 

if @rec_id is null and @verbose o 0 print "Campaign Not Found!" 

if not (@rec_id is null) and @verbose o 0 print "Campaign Rec ID 
=> " + cast{@recjd as varchar(50)) 

select @title_name ^ title_name 
from corp_info 

where product_id = @product_id 
if @verbose o 0 print "Title Name => " + @title_name 

if (@rec_id is null) —no campaign exists, create one; add row to 

campaign def 
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begin 

insert into campaigns 

select @src_indicator as src_indicator 

, @src_cat_name as src_cat_name 

, @product_id as productjd 

, "Undefmed" as camp_type 

, @camp_name as camp_name 

, "Undefined" as camp_status_name 

, null as agt_code 

, null as agt_descr 

, @camp_date_fr as camp_date_fr 

, null as camp_date_to 

, @e_set_name as e_set_name 

, "Undefined" as r_set_name 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_name 

, null as newstand_sale 

, null as budgeted_jross_pct 

, null as budgeted_vol 

, @campaign_code as campaign_code 

set @rec_id = null 
select @rec_id = recjd 

from autosetup_campaign_def 

where product_id - @product_id 

and campaign_code = @campaign_code 

and src_cat_name = @src_cat_name 
if @rec__id is null 

insert into autosetup_campaign_def 

(product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme) 

values (@product_id 

, @campaign_code 

, @camp_name 

, @STC_cat_name 

, @camp_date_fr 

,null) 

end "if 

-ok, campaign is done, now for the panel 
-Check for panel naming scheme 
set @panel_scheme = null 
set @panel_code = null 

exec concat_p_codes @setup_mask, @avail_key, @panel__code output 

select @panel_scheme = panel_scheme 
from autosetup_campaign_def 
where productjd = @product_id 
and campaign_code = @campaign_code 
--and campaign_description = @campaign_description 
and src_cat_name = @src_cat_name 
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-and campaign_date = @camp_date_fi' 
if @verbose o 0 print "Panel Scheme => " + @panel_scheme 

if @panel_scheme is not null and @panel_code is not null -use panel 

begin 

set @panel_name = null 
select @panel_name = panel_name 
from autosetupjpanel_def 
where product_id = @product_id 
and panel_scheme == @panel_scheme 
and patindexC%' + @panel_code + '%', panel_codes) 

— gw print statement below 

if @verbose o 0 print "Panel Name => " + @panel_name 
end 

if @panel_scheme is null or (@panel_scheme is not null and 
scheme is not null and @panel_name is null)-build pane! name from 

begin 

if not(@panel_code > " ") set @panel_name = "Control" 
else set @panel_name =^ "Panel " + @panel_code 
if @verbose o 0 print "Panel Name => " + @panel_name 

end -- if 

—check to see if a panel exists 
set @recjd = null 
select @rec_id = rec_id 
from panels 

where campaign_code = @campaign_code 
and src_indicator = @src_indicator 
and panel_code = @panel_code 
and src_cat_name = @src_cat_name 
and source_name = @source_name 
and productjd = @productJd 
—check for unique panel name 
if @recjd is null select @rec Jd = recjd 
from panels 

where panel_name = @panel__name 
and camp_name = @camp_name 
and src_indicator = @src_indicator 
and source_name = @source_name 
and panel_name = @panel_name 
and src_cat_name = @src_cat_name 
and product_id = @product_id 
if ©verbose o 0 Print "Panel ID (null means create a new one) => " 
+ cast(@rec_id as varchar(50)) 

if (@rec_id is null) —then panel does not exist so create it 
begin 

insert into panels 

select @camp_name as camp_name 
y @src_indicator as src_mdicator 
, @panel_name as panel_name 
, @src_cat_name as src_cat_name 
, @productJd as product_id 



scheme to determine panel name 



>0 



@panel_code is null) or (@panel_ 
default 
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, "Undefined" as panel__type 

, @e_set_name as e__set_name 

, "Undefined" as panel__subtype 

, "Undefined" as r_set_name 

, "Undefined" as test_type 

, null as panel^offer 

, null as panel_offer_j5rice 

, "Undefined" as panel_j)kg 

, null as paneljpremium 

, null as panel_date_start 

, null as panel_date_end 

, @grp_name as grp_nanie 

, @titie_name as title_nanie 

, @source_name as source_name 

, "Undefined" as camp_type 

, "Undefined" as camp_status_name 

, null as agt_code 

, null as agt_descr 

, @valid_from_date as camp_date__fr 

, @valid_to_date as camp_date_to 

, null as newstand_sale_niarker 

, null as newstand_sale 

, null as budgeted_gross_pct 

, null as budgeted_vol 

, @canipaign_code as campaign_code 

, @panel_code as panel_code 

, null as order_qty 

, null as dist_qty 



end -if 

set @rec_id = null 

if @verbose o 0 print "Assigning key to keys table 

—OK, now add the key to the keys table 

if @verbose o 0 print "Expense set name > " + @e_set_name 

if (@e_set__name- 00 or (@e_set_name is null) set @e_set_name = 

"Undefined" 

insert into keys 

select @avail_key as full_promo_key 

, @dt_valid_to as dt_valid_to 

, @panel_naine as panel_name 

, @camp_name as canip_name 

, @dt_valid_to as dt_valid_from 

, @src_indicator as src_indicator 

, @src_cat_name as src_cat_name 

, @product_id as product_id 

, @e_set_name as e_set_name 

, null as Iist_id 

, 0 as levell__expense 

, null as list_cost_rolIout_cpni 

, null as iist_cost_actual_cpm 

, null as fixed_expense 

, True' as subtotal_flag 

, 0 as level2_expense 

, "Undefined" as r_set_name 

, 0 as level3__expense 
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, 0 as level l_revenue 

, 0 as level2_revenue 

, 0 as level3_revenue 

, null as p_key_descr 

, "Undefined" as panel_type 

, "Undefined" as panel_subtype 

, "Undefined" as test_type 

, null as panel_offer 

, null as panel_oflFer__price 

, "Undefined" as panel_pkg 

, null as panei_premium 

, null as panel_date_start 

, null as panel_date_end 

, @grp_name as grp_name 

, @title_name as title_name 

, @source_name as source_nanie 

, "Undefined" as camp_type 

, "Undefined" as camp_status_name 

, null as agt_code 

, null as agt_descr 

, null as camp_date_fi- 

, null as camp_date_to 

, @mail_qty as key_mail_qty 

, null mail_qty_override 

, null as nierge_purge_qty 

, "Mail Qty" as list_cost_basis 

, 1 as Iist_cost_factor 

, "Undefined" as list_cat_name 

, "Undefined" as list_name 

, "Undefined" as list_segment_name 

, null as optional_effortJd 

, null as newstand_sale 

, "N" as newstand_sale_marker 

, null as budgeted_gross_pct 

, null as budgeted_vol 

, getdateO as date_assigned 

, @campaign_code as campaign_code 

, @panel_code as panel_code 

, "Auto Setup" as dbusemame 

, null as order_qty 

, null as dist_qty 

end — if 

end — if, no matching source name 

if ©verbose o 0 print "Getting next avail key ..." 
fetch next from avail_keys into @product_id, @avail_key, @fulfillment_house, @dt_vaIid_to, 
@source_identifier, @mail_qty 
end —while 
close avaii_keys 
deallocate avail_keys 
delete from avail_keys 

where exists 

(select * 

from keys k 

where k.full_promo_key = avail_keys.full_promo_key 
and k,product__id = avaiI_keys,product_id) 
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if ©verbose o 0 print "All done!" 

end 
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Procedure Name: Cascade_update 



@field_name VARCHAR(IOO), 
@old_fieid_vaIue VARCHAR(200), 
@new__field_value VARCHAR(200), 
@Ievel VARCHAR(30), 
@product_id Nunieric(9) 
AS 

declare @sql NVarchar(200) 

-print @field_name + " " + @field_value 

IF @ievel - "KEYS" or ©level -"PANELS" or @level="CAMPAIGNS" 
begin 

set @sql = 'UPDATE keys SET * + @field_name + * = @new_vaiue where '+ @fieid_name + ' = 
@oId_value ' 
if@productjdo-i 
begin 

set @sql = @SQL + ' and Product Jd = ' + cast(@productJd as VARCHAR) 
end 

exec sp_executesql @Sql, N'@new_vaiue VARCHAR(200), @oId_vaIue 
VARCHAR(200)',@new_fieid_value,@oId_fieId_value 
END 

IF @level ="PANELS" or @IeveH"CAMPAIGNS" 
BEGIN 

set @sql ~ 'UPDATE panels SET * + @field_name + ' = @new_value where '+ @field_name + ' = 
@oId_value * 
if @product_id o - 1 
begin 

set @sql = @SQL + ' and Product Jd = ' + cast(@productJd as VARCHAR) 
end 

exec sp_executesql @Sql, N'@new_value VARCHAR(200), @oId_vaIue 
VARCHAR(200y,@new_field_vaIue,@oId_field_value 
END 

IF @ieve[="CAMPAIGNS" 
BEGIN 

set @sql = 'UPDATE campaigns SET ' + @field_name + ' - @new_value where *+ @field_name + ' = 
@old_value * 
if @product_id o -1 
begin 

set @sql @SQL + * and Product Jd = ' + cast(@productJd as VARCHAR) 
end 

exec sp_executesql @Sql, N'@new_value VARCHAR(200), @old_vaIue 
VARCHAR(200)\@new_field_value,@old_field_vaIue 
END 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 16 of 142 




IMT Subscription Marketing Reporting System 



Procedure Name: Coacat c codes 

@setup_mask varcliar(50) 
, @avail_key varchar(50) 
, @campaign_code varchar(50) output as 

—local vars 
declare @i int 

begin 

set @i = 0 

set @campaign_code = 

while @i < len(@setup_mask) -loop through each char in mask and add to camp code where 
mask letter is a C 
begin 

set @i = @i + 1 

-select @i, substring(@setup_mask, @i, 1), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) = "C" set @campaign_code = @campaign_code + 
substring(@avail_key, @i,l) 
end -while 

—return @campaign_code 
end — concat c codes 
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Procedure Name: concat_p_codes 

@setup_mask varchar(50) 

, @avail_key varchar(50) 

, @panel_name varchar(50) output as 

-local vars 
declare @i int 



begin 

set @i = 0 

set @panel_name = 

print "Entering concat p codes..." 

print "setup mask is ==> " + @setup_mask 

print "Avail key is ==> " + @avail_key 

-print "panel name is => " + @panel_name 

while @i < len(@setup_mask) -loop through each char in mask and add to panel name where 
mask letter is a P 
begin 

set @i = @i + 1 

-select @i, substring(@setup_mask, @i, 1), substring(@avail_key, @i,l) 
if substring(@setup_mask, @i,l) ^ "P" set @panel_name = @panel_name + 
substrmg(@avail_key, @i,l) 

-print "Panel is now => " + @panel_name 
end -while 

print "Panel is now " + @panel_name 
end -concat p codes 
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Procedure Name: Create_rl01_topiine 



truncate table rl01_topline 

INSERT INTO rlOlJopline 

Select keys.Product_id as Product_id, 

keys.src_cat_name as src_cat_name, 

keys,source_name as source_name, 

keys.camp_name ascamp_name, 

— summary fields 

sum(rlOLgross_subs) AS gross_subs, 

sum(rlOLtot_net_subs) AS tot__net_subs, 

min(keysxamp_date_fi-) AS camp_date_fr, 

max(keys.budgeted_grossj)ct) AS Budgeted_gross_pct, 

max(keys,Budgeted_voi) AS Budgeted_vol, 

sum(rl01,mail_qty) promo_qty 
FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.fuIl_promo_key = rlOLri01_key 
AND keys.product_id = r 1 0 1 .product_id 
-keys tori 01 

AND rlOl.productJd = est_max_efFort.product_id 

AND rlOLsourceJDENTIFIER = est_max_efTort.souceJDENTIFIER 

AND rlOLissueJDENTIFIER = est_max_effort.issue_IDENTIFIER 

— other stuff 

AND rl01.prior__source_IDENTIFIER = est_max_effortprior_source_IDENTIFIER 

and keys.src_cat_name = 'Renewals' 

AND rlOLeffort_identifier = est_max_efFort.max_effort 

GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keys.camp_name 

Insert into rl01_topline 
-- else case 

Select keys.Product_id as Productjd, 

keys.src_cat_name as src_cat_name, 
keys.source__name as source_name, 
keys.camp_name ascamp_name, 

— summary fields 

sum(rl01.gross_subs) AS gross_subs, 
sum(rl01.tot_net_subs) AS tot_net_subs, 
min(keys.camp_date_fr) AS camp_date_fi', 
max(keys.budgeted_gross_j)ct) AS Budgeted _gross jct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, r 1 0 1 r 1 0 1 , est_max_effort est_max_effort 
WHERE keys.full_promo_key = rlOLrl01_key 
AND keys.product_id = r 1 0 1 ,product_id 

— keys to rlOl 

AND rlOLproduct_id = est_max_effort.product_id 

AND rlOI.sourceJDENTIFIER = est_max_effort.souceJDENTIFIER 

AND rlO 1 .issue JDENTIFIER = est^max_effort. issue JDENTIFIER 

AND rlO l.prior_source JDENTIFIER = est_max_effort.prior_source_IDENTIFIER 

— other stuff 
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and keys.src_cat_name = 'Renewals' 

AND rlOLeffortJdentifier o est_max_effort.max_effort 

GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keysxamp_name 

INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Productjd, 

keys.src__cat_name as src_cat_name, 

keys.source_name as source_name, 

keys.camp_name as camp_name, 

- summary fields 

sum{rl01.gross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date_fi:, 

max(keys.budgeted^ossjpct) AS Budgeted _gross_pct, 

max(keys.Budgeted__vol) AS Budgeted_voI, 

sum(newstand__sale) promo_qty 
FROM keys keys, rlOl rlOl, est_max_effort est__max_effort 
WHERE keys.fiili_promo_key = rlOLrl01_key 
AND keys.productJd = r 1 0 1 .productjd 
keys torlOl 

AND rl 01. productjd = est_max_efFort.productJd 

AND rlOl. source JDENTIFIER = est_max_effort.souceJDENTIFIER 

AND rlOl.issue JDENTIFIER = est_max_effort.issue JDENTIFIER 

AND rl01.prior_source JDENTIFIER = est_max_effort.prior_source JDENTIFIER 

- other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'true' 
and Newstand_sale_marker = "Y' 
GROUP BY keys.ProductJd, 

keys.src_cat_name, 

keys.source__name, 

keysxamp_name 
INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Productjd, 

keys,src_cat__name as src_cat_name, 

keys.source^name as source_name, 

keys.camp_name ascamp_name, 

- summary fields 

sum(rl01,gross_subs) AS gross_subs, 

sum(rlOl.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date_fr, 

max(keys.budgeted_jross_pct) AS Budgeted _gross jjct, 

max(keys.Budgeted_vol) AS Budgeted_vol, 

sum(newstand_saie) promo_qty 
FROM keys keys, rlOl rlOl, est_max_effort est_max__effort 
WHERE keys.fuIl_promo_key = rl01.rl01_key 
AND keys.product Jd = r 1 0 1 .product_id 
-- keys torlOl 

AND rlOl.productJd = est_max_effort.productJd 

AND rlOLsourceJDENTIFIER = est_max_effort.souce JDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort. issue JDENTIFIER 

AND rl01,prior_sourceJDENTIFIER- est_max_effort.prior_source JDENTIFIER 
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— other stuff 

and keys.src__cat_name o 'Renewals' 
AND keys,subtotal_flag = 'true' 
and Newstand_sale_marker = 'Y' 
GROUP BY keys.ProductJd, 

keys,src_cat_name, 

keys.source_name, 

keys.camp_name 

INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Product Jd, 

keys,src_cat__name as src_cat_name, 

keys.source_nanie as source__name, 

keys.camp_name as camp_name, 

— summaiy fields 

sum(rlOLgross_subs) AS gross_subs, 
sum(rlOi.tot_net_subs) AS tot_net_subs, 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted_gross_pct) AS Budgeted _gross_j3Ct, 
max(keys.Budgeted_vol) AS Budgeted_vol, 
0 promo_qty 

FROM keys keys, rlOl rlOl, est__max_effort est_max_effort 
WHERE keys.fulljpromo__key = rIOLrlOl_key 
AND keys.product Jd = r 1 0 i .product Jd 

— keystorlOl 

AND rlOl.productJd = est_max_efFort.product_id 

AND rlOLsourceJDENTlFIER = est_max_effort.souce_IDENTIFIER 

AND rl01.issueJDENTIFIER= est_max_effort.issue_IDENTIFIER 

AND rlOLprior_source_IDENTIFIER = est_max_effort.prior_source_IDENTIFIER 

— other stuff 

and keys,src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'true' 
and Newstand_sale_marker = 'N' 
GROUP BY keys.Product_id, 

keys.src_cat__name, 

keys,source_name, 

keysxamp_name 



INSERT INTO R101_TOPLINE 
Select keys.ProductJd as Product Jd, 

keys,src_cat_name as src_cat_name, 

keys,source_name as source_name, 

keys.camp_name as camp_name, 

— sununary fields 

sum(rlOi.gross_subs) AS gross_subs, 
suni(r 1 0 1 .tot_net_subs) AS tot_net_subs, 
min(keys.camp_date_fr) AS camp_date_fr, 
max(keys.budgeted__gross jct) AS Budgeted_gross_pct, 
max(keys,Budgeted_vol) AS Budgeted_vol, 
sum(keys.maiI_qty_override) promo_qty 

FROM keys keys, r 1 0 1 r 1 0 1 , est_max_eff ort est_max_effort 

WHERE keys.full_promo_key - rlO 1 .rlO I_key 

AND keys,product_id = rlOl.productJd 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 21 of 142 



IMT Subscription Marketing Reporting System 



— keys torlOl 

AND rl01.product_id = est_max_effort.product_id 

AND rlOLsourceJDENTIFIER = est_max_effort.souce__IDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issueJDENTIFIER 

AND rlOl .prior_source_IDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

- other stuff 

and keys.src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'false' 
and keys.mail_qty__override > 0 
GROUP BY keys.Product_id, 

keys.src_cat_name, 

keys.source_name, 

keys.canip_name 

INSERT INTO R101_TOPLINE 
Select keys.Product_id as Productjd, 

keys.src_cat_name as src_cat_name, 

keys.source_name as source_name, 

keysxamp_nanie as camp_name, 

- summary fields 

sum(rlOLgross_subs) AS gross_subs, 

sum(rl01.tot_net_subs) AS tot_net_subs, 

min(keys.camp_date_fr) AS camp_date_fi-, 

max(keys,budgeted_^oss_pct) AS Budgeted _gross_pct, 

max(keys,Budgeted_vol) AS Budgeted_vol, 

sum(keys.key_mail_qty) promo_qty 
FROM keys keys, rlOl riOl, est_max_efFort est_max_efifort 
WHERE keys.full_promo_key = rlOLrl01_key 
AND keys.product Jd = r 1 0 1 .productjd 
-keystorlOl 

AND rl 01. productjd = est_max_effort.product Jd 

AND rlOLsourceJDENTIFIER = est_max_effort.souceJDENTIFIER 

AND rlOl.issueJDENTIFIER = est_max_effort.issue_IDENTIFIER 

AND rl01.prior_source_IDENTIFIER = est_max_effort.prior_sourceJDENTIFIER 

-- other stuff 

and keys,src_cat_name o 'Renewals' 
AND keys.subtotal_flag = 'false' 
and keys.mail_qty_override <= 0 
GROUP BY keys.Product Jd, 

keys.src_cat_name, 

keys.source_name, 

keys,camp_name 
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Procedure Name: dei key 

/****** Object: Stored Procedure dbo,del_Key Script Date: 1/14/99 3:43:07 PM ******/ 
/****** Object: Stored Procedure dbo.de}_Key Script Date: 1/12/99 1 1:05:37 PM ******/ 
CREATE PROCEDURE del_Key 

@full_j)romo_key varchar (25),@productJd numeric(8,2) 

AS 

delete from keys where product_id=@product_id and fuil_promo_key = @full_promo_key 
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Procedure Name: do lOlflow seldatefix 



AS 
declare 



@product__id nimieric{9,2), ~ product__id 

@Promo_Key varchar(25), promo key being inserted 

@reorg_date smalldatetime, - the reorg date from the file that the key comes.from 

@import_file_type char(l)-- the type of import file i.e. new business/cds , etc. 

--execute dolOI_flow_selDateFix @product_id, @Promo_Key, @reorg__date 

@nPromo_Key varchar(25), - promo_key minus the right 6 characters + @maxSeI_Date + 



@ePromo_Key varchar(25), ~ existing modified promo key from a prior calculation 
@Key_Length integer, 

@maxSel_Date smalldatetime - max select date if prior same key exists 
select @nPromo_Key = ien(@Promo_Key) -promo_key length 

If(@import_file_type ='C) 

BEGIN 

declare c_flow cursor for 

select max(select_date) m, rl01__key from rl01_flow where 
product_id = @product_id and 

rlOl_key like (substring(@Promo_Key,l,@nPromo_Key-9) +'UGLJ%') and 

(len(rl01_key) > 17 OR IMPORT_fi!e_type -C) group by select_date,rlOI_key order by m desc 

print 'searching for key match on C imp file type' 

END 

else 

BEGIN 

declare c_flow cursor for 

select max(select_date) m, rl01_key from rlOI_flow where 

product_id = @product_id and rl01_key like (substring(@Promo_Key, 1 ,@nPromo_Key-6) +*%') 
and Ien(rl01_key) < 18 group by select_date,rlOl__key order by m desc 

END 
open c_flow 

fetch c_flow into @maxSei_Date, @ePromo_Key 
-print 'fetch_status- + convert(varchar,@@fetch_status) 
If (@@fetch_status = 0) 
BEGIN 

If (@maxSel_Date > DATEADD(day,-555,getDateO)) 
BEGIN 

print convert(varchar, @maxSel_Date) + 'fetch status = match found(Oy 

update rl01_flow set select_date = @maxSel_Date, rlOl_key = @ePromo_Key 

where product_id = @product_id and ri01_key=@Promo_Key 

close c_flow 

deallocate c_flow 

return 

END 

ELSE - no prior matching keys or select date is null 
BEGIN 

print 'appending date to key' 

select @maxSel_Date = @reorg_date 

update r 10 Inflow set select_date = @maxSel_Date, 

rl01_key - (substring(@Promo_Key,l,@nPromo_Key-6) + CONVERT (varchar, 
@maxSel_Date , 101)+**') 

where product_id = @product_id and rlOI_key=@Promo_Key 
close c flow 
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END 
close c_fiow 
deallocate c_flow 
return 



deallocate c_flow 

return 

END 
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Procedure Name: doavaiI401keys 



begin -sp 

declare @r401_key varchar(25), @select_date smalldatetinie,@bills_mailed numeric{i2,2),@productJd 
numeric(8,0X @full_j)romo_key varchar(25),@dt_validJo smaiidatetime,@source_identifier 
char(l),@keyCountnumeric(8,0), @import_file_type char(l) 
declare @fuifiIlment_house varcliar(50) 

set nocount on 

/*add for product id smarts */ 

declare c_r40 1 cursor for /* r40i recordset - the main/reference one */ 
select r401_key,select_date,bills_mailed,product_id,source_identifier, import_file_type from 
r401_sunimary where not exists 
(select * from keys k 

where k.fliil_promo_key = r401_summary.r40l_key and k.product_id = 
r401_summary.product_id) order by product_id, r401_key 
open c_r401 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@productjd,@sourcejdentifier, 
@miport_file_type 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (fulI__promo_key --1 

,dt_valid_to -2 
,mail_qty -3 
,product_id —4 
,source_identifier -5 
,positionl —6 
,position2 —7 
,position3 —8 
,position4 -9 
,position5 -10 
,position6 —11 
^position? —12 
,position8 -13 
,position9 -14 
,positionlO —15 
,fulfilIment_house ) -16 

values 

(@r401_key -1 

,ISNULL(@select_date,getDateO) -2 
,@bills_mailed —3 
,@product_id -4 
,@source_identifier -5 
,SUBSTRING(@r40 l_key, 1,1) ~6 
,SUBSTRING(@r40 Lkey,2, 1 ) -7 
,SUBSTRrNG(@r40 l_key,3, 1) "8 
,SUBSTRING(@r40 1_key,4, 1 ) -9 
,SUBSTRING(@r40 l_key,5, 1 ) - 1 0 
,SUBSTRING(@r401_key,6,l) -1 1 
,SUBSTRING(@r401_key,7,l) -12 
,SUBSTRING(@r40 l_key,8, 1 ) - 1 3 
,SUBSTRING(@r401_key, 9,1) -14 
,SUBSTRING(@r40l_key, 10,1) -15 
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, case @import_file_type 

when 'A' then 'CENTROBE' 
when ^B'then 'CENTROBE' 
when 'C then 'CENTROBE* 
when 'F then 'CENTROBE' 
when T' then 'CDS' 
when 'G' then 'CDS' 
when 'H' then 'CDS' 
when T then TALM COAST 
when 'J then TALM COAST 
when 'K* then 'PALM COAST' 
else null 

end) 

fetch c_r401 into @r401_key,@select_date,@bills__mailed,@productjd,@source_identifier, 
@iniport_file_type 
end 

close c_r40 1 
deallocate c_r401 

delete from avail_keys where exists 
(select * from keys k 

where Lfiill_jpromo_key = avaii_keys.frill_promo_key and k,productJd = avail_keys.productJd) 

end — sp 

exec autosetup_wizard 1, -1 —1 to display text (zero suppresses), -1 for all products 
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Procedure Name: dovailkeysbypid 

@PID numeric(9,0) 

AS 

declare @rl01_key varchar(25), @seiect_date smalldatetime,@maii_qty numeric(12,2),@product_id 
numeric(8,0), @fu}l_promo_key varchar(25),@dt_valid_to smalldatetime,@source_identifier 
char(l),@keyCount nuineric{8,0) 
set nocount on 

/*add for product id smarts */ 

declare c_rl01 cursor for /* rlOl recordset - the main/reference one */ 

select distinct rl01_key,se!ect_date,mail_qty,product_id,source_identifier from rlOl where 
product_id - @PID order by product__id 
/*declare c_keys cursor for 

select count(fiill_promo_key) from keys where product_id=@product_id and fulljpromo_key = 
@rlOI_key*/ 

open c_rl01 

fetch c_rl01 into @rl01_key,@seiect_date,@mail_qty,@product_id,@source_identifier 

delete from avail_keys where productjd = @PID /*delete all existing avail_keys from avail_keys list*/ 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (fiill_promo_key,dt_valid_to,mail_qty,product__id,source_identifier, 
position 1 ,position2,position3,position4,position5,position6, position?, 
position8,position9,positionl0 ) values 

(@r 1 0 l_key,DATEADD(month,20 JS^^JL^@select_date,getDate())),@mail_qty,@product Jd,@^ 
identifier, 

SUBSTRING(@rl0i_key,l,l),SUBSTRING{@rl01_key,2,l),SUBSTRING(@rl01_key,^ 
SUBSTRJNG(@r 1 0 l_key,4, 1 ),SUBSTRING(@rl 0 l_key,5, 1 ), 

SUBSTRmG(@rl01_key,6,l),SUBSTRING{@rl01_key,7,l),SlJBSTRING(@rlOI_k^^ 
isnulI(SUBSTRING(@rl01_key,9,l), null), ISNULL(SUBSTRING(@rl01_key,10,l),null) ) 

fetch c_rl01 into @rl01_key,@select_date,@mail_qty,@product_id,@source_identifier 
end 

close c_rl01 
deallocate c_rl01 

delete from avail_keys where exists 
(select * from keys k 

where k.fiili_promo_key = avail_keys.fulI_promo_key and k.product_id = avail_keys,product_id) 
print 'Attempting to Execute doAvail40 1 KeysByPID' 
execute doavail401keysbypid @PID 
return 
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Procedure Name: dovaii401keysbypid 

@PID numeric(9,0) 
AS 

declare @r40i_key varchar(25), @select_date smalldatetime,@bills_mailed numeric( 12,2),@product Jd 
numeric(8,0), @ftill_promo__key varchar(25),@dt_validJo smaIldatetiine,@sourceJdentifier 
char(l),@keyCount numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c__r40 1 cursor for /* r401 recordset - tiie main/reference one */ 

select distinct r401_key,select_date,bills_mailed,productjd,source_identifier from r401_summaiy 
where product_id = @PID order by product_id 

open c_r401 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@productjd,@source_identifier 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (flill_promo_key,dt_valid_to,mail_qty,productjd,source_identifier, 
positionl,position2,position3,position4,position5,position6, position?, 
position8,position9,positionl0 ) values 

(@r401_key,DATEADD(month,20JSNULL(@seIect_date,getDateO)),@bins_mailed,@productJd^ 
ce_identifier, 

SUBSTRING(@r40 l_key, 1 , 1 ),SUBSTRING(@r40 l_key,2, l),SUBSTRING(@r40 l_key,3, 1 ), 
SUBSTRING(@r401_key,4,l),SUBSTRING(@r40l_key,5,l), 

SUBSTRING(@r40 l_key,6, 1 ),SUBSTRrNG(@r40 l_key,7, l),SUBSTRING(@r40 l^key,8, 1 ), 
isnull(SUBSTRING(@r40l_key,9,l), null), IS^aJLL(SUBSTRING(@r401_key,10,lXnull) ) 

fetch c_r401 into @r40I__key,@select_date,@bills_mailed,@product_id,@source_identifier 
end 

close c_r40 1 
deallocate c_r401 

delete from avail_keys where exists 
(select * from keys k 

where k.full_promo_key = avaiI_keys.full_promo_key and k.productjd = avail_keys.product_id) 

return 
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Procedure Name: dovailkeys 

declare @rl01_key varchar(25), @fulfillment_house varchar(50), @select_date smaildatetime,@mail_qty 
numeric(12,2),@product_id numeric(8,0), @full_promo_key varchar(25),@dt_vaiid_to 
smalIdatetime,@source_identifier char(l),@key Count numeric(8,0) 
set nocount on 

/*add for product id smarts */ 

declare c_rl01 cursor for /* rlOl recordset - the main/reference one */ 

select rl01_key,select_date,mail_qty,product_id,sourcejdentifier, fulfillment_house from rlOl where not 
exists 

(select * from keys k 

where k.fullj5romo_key = rl01.rl01_key and Lproductjd = r 101. product Jd) order by 
product Jd, rl01_key 
/* declare c_keys cursor for 

select count(full_promo_key) from keys where product_id=@productJd and fulI_promo_key = 

@rl01_key*/ 
open c_rl01 

fetch c_rl01 into @rl01_key,@select_date,@mail_qty,@productjd,@source_identifier, 
@fulfillment_house 

truncate table avail_keys /*delete all existing avail_keys from avail_keys list*/ 

while (@@fetch_status = 0) 
begin 

-print "inserting into avail_keys => " + @rl01_key 

Insert into avail_keys (fulljpromo_key,dt_validjo,mail_qty,product_id,sourceJdentifier, 
positionUposition2,position3,position4,position5,position6, position?, 
position8,position9,position 1 0, ftiIfillment_house ) values 

(@rl01_key,ISNULL(@select_date,getDateO),@mail_qty,@productJd,@sourceJdentifier, 
SUBSTRING(@r 10 l>yj, l),SUBSTRmG(@rl01_key,2, l),SUBSTRING{@r 10 Lkey^ 
SUBSTRING(@rl01_keyAl),SUBSTRJNG(@rl01_key,5,l), 

SUBSTRING(@r 10 l>yA lXSUBSTRING(@rlO l_keyja),SUBSTRING(@r 10 1_^^^^ 
SUBSTRING(@rlOI__key,9,l), SUBSTRING(@rlOi_key,10,I), @fulfillment_house) 

fetch c_rl01 into 

(^10i_key,(^elect_date,@mail_qty,@productjd,@sourcejdentifier,@fulfilb^ 
end 

close c_rl01 
deallocate c_rl01 

delete from avail_keys where exists 
(select * from keys k 

where k.fiill_promo_key = avaiI_keys,fullj5romo_key and k.product_id = avail__keys.product_id) 

-exec autosetup_wizard 
exec doavaiI401keys 
return 
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Procedure Name: docampesets 



declare encamp cursor for 

select product Jd,camp__name, e_set_name from campaigns where e_set_name > * ' 

declare @product_id decimal(9), @camp_name varchar(250), @e_set_name varchar (50) 
open c_camp 

fetch c_camp into @product_id, @camp_name, @e_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e__set_name = @e_set_name WHERE CURRENT OF cjanel*/ 
update keys set e_set_name=@e_set_name where product Jd = @product_id and camp_name = 
@camp_name and (keys,e_set_name < " or keys.e_set_name is null) 

fetch c_camp into @product_id, @camp_name, @e_set_name 
end 

close c_camp 
deallocate c_camp 



return 
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Procedure Name: docamprsets 

declare c_campr cursor for 

select productJd,canip_name, r_set_name from campaigns where r_set_name > ' ' 

declare ©product Jd decimal(9), @camp_name varchar(250), @r_set__name varchar (50) 
open c_campr 

fetch c_campr into @product_id, @camp_name, @r_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name - @e_set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name=@r_set_name where productjd = @product_id and camp_name = 
@camp_name and (keys.r_set_name < ' * or keys.r_set__name is null) 

fetch c_campr into @product_id, @camp_name, @r_set_name 
end 

close c_campr 
deallocate c_campr 

return 
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Procedure Name: doestmaxeffort 



begin 

truncate table est_max_EFFORT 
INSERT INTO est_max_EFFORT 
select est_maxl.product_id, 

est_maxl .sourcejdentifier, 

est_max 1 .issue_identifier, 

est_max 1 .prior_source_identifier, 

min(est_max 1 .effortjdentifier), 

min(est_max 1 .sum_mail_qty) 
FROM v_est_maxl est_maxl, v_est_max2 est_max2 
WHERE est_maxl.sum_mail_qty = est_max2.est_max 
and est_max 1 .source Jdentifier = est_max2,source Jdentifier 
and est_maxl .issue_identifier=est_max2.issuejdentifier 
and est_max 1 ,prior_source_identifier = est_max2.prior_source_identifier 
GROUP by est_maxLproduct_id, 

est_maxl .sourcejdentifier, 

est_max I . issue_identifier, 

est__max 1 .prior_source Jdentifier 
end 

return 
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CREATE PROCEDURE doMW AS 

declare @product_id numeric(8,0), @stat_name varchar(50) 

/* V 

declare c_ cursor for 

select product__id from corp_info 
declare c_work cursor for 

select r__set_name from revenue_sets where product_id = @product_id and r_set_name = 
'Undefined' 
open c_ 

fetch c_ into @product_id 



delete from revenue_sets where r_set_name = 'Undefined' 
delete from revenue_sets where r_set_name = 'UNDEFINED' 

while (@@fetch_status = 0) 
begin 

open c_work 

fetch c_work into @stat_name 

If (@@fetch_status o 0) 
begin 

Insert into revenue_sets (product_id, r_set_name) values (@product_id,'Undefined') 

close c_work 

end 

else 

begin 

close c_work 
end 

fetch c_ into @productJd 
end 

close c_ 
deallocate c_ 
deallocate c_work 

update campaigns set r_set_name = 'Undefined' where r_set_name is null 
update campaigns set r_set_name = 'Undefined' where r_set_name = " 
update panels set r_set_name - 'Undefined' where r_set_name is null 
update panels set r_set_name = 'Undefined' where r_set_name = " 
update keys set r_set_name = 'Undefined' where r_set__name is null 
update keys set r_set_name = 'Undefined' where r_set_name = " 
return 
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Procedure Name: doPaneiESets 



declare c_panei cursor for 

select product_id,panei_name, e_set_name from panels where e_set_name > ' ' 

declare @productJd decimal(9), @panei_name varchar(250), @e_set_narae varchar (50) 
open c_panel 

fetch cjpanel into @product_id, @panel_name, @e_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e__set_name = @e_set_name WHERE CURRENT OF empanel*/ 
update keys set e_set_name=@e_set_name where product_id - @product_id and panel_name = 
@panel_name and (keys.e_set_name < * ' or keys.e_set_name is null) 

fetch c_panel into @product_id, @panel_name, @e_set_name 
end 

close c_panel 
deallocate c_panel 

return 
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Procedure Name: doPanelRSets 



declare c_panelr cursor for 

select productJd,panel_name, r_set_name from panels where r_set_name > ' ' 

declare @product_id decimal(9), @panel_name varchar(250), @r_set__name varchar (50) 
open c_j5anelr 

fetch cjanelr into @product_id, @panel_name, @r_set_name 

while (@@fetch_status = 0) 
begin 

/♦UPDATE panels SET e_set_name - @e_,set_name WHERE CURRENT OF c_panel*/ 
update keys set r_set_name=@r_set_name where product Jd = ©product Jd and panel_name = 
@panel_name and (keys.r_set_name < " or keys.r_set_name is null) 

fetch c janelr into @product Jd, @panei_name, @r_set_name 
end 

close c_panelr 
deallocate c_panelr 

return 
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Procedure Name: doProdSetup 



/****** Object: Stored Procedure dbo.doProdSetup Script Date: 1/14/99 3:43:07 PM ******/ 

Object: Stored Procedure dbo.doProdSetup Script Date: 1/12/99 1 1 :05:37 PM ******/ 

Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/28/98 2:3 1 : 13 PM ******/ 

Object: Stored Procedure dbo.doProdSetup Script Date: 1 1/17/98 2:43:36 PM ******/ 

declare ©product Jd numeric(8,0), @grp_name varchar(50), @title_name varchar(50), ©srcjrodjd 

numeric(8,0) 

/* */ 

declare c_corp_info cursor for 

select product_id,grp_name,title_name from corp__info 
declare c_src__category cursor for 

select productjd from src_category where product Jd = @product_id 
open c_corp_info 

fetch c_corp_info into @productJd,@grp_name,@title_name 
/♦if (@@fetch_status o 0) 

begin 

end*/ 

while (@@fetch_status = 0) 
begin 

open c_src_category 

fetch c_src_category into @src_prod_id 

If (@@fetch_status o 0) 

begin 

Insert into src_category (productJd,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@productjd;AgentsV\@grp_name,@title_name) 

Insert into src_category (product_id,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@product Jd/Renewals'/R things',@grp_name,@title_name) 

Insert into src_category (product_id,src_cat_name,src_cat__descr,grp_name,title_name) 
values (@productJd;BiIling',",@grp_name,@titie_name) 

Insert into src_category (product_id,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@productJd/DTP',",@grp_name,@title_name) 

Insert into src_category (productJd,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@product_id;Gifts',",@grp_name,@title_name) 

Insert into src_category (product_id,src_cat_name,src__cat_descr,grp_name,title_name) 
values (©product Jd,'Renewals',",@grp_name,@title_name) 

Insert into src^category (product Jd,src_cat_name,src_cat_descr,grp_name,title_name) 
values (@product_id;UNNASSIGNED',",@grp_name,@titIe_name) 

Insert into source 

(productJd,src_cat_name,source_name,src_indicator,grp_name,title_name) values 
(@productJd;Renewals\TlenewalsSRC;R\@grp_name,@title_name) 

close c_src__category 

end 

else 

begin 

close c_src_category 
end 

fetch c__corp_info into @productJd,@grp_name,@titIe_name 
end 

close c_corp_info 
deallocate c_corp_info 
deallocate c_src_category 
return 
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Procedure Name: doRlOl summary 



begin 

truncate table rIOl 

-update rl01_flow set select_date = getDateQ where select_date < '1901-01-01' 
/* 

update rl01_flow set select_date = getDateQ where not exists 
(select * from rl01_flow r 

where r.rl01_key = rl01_flow.rl01_key and r.productjd = rl01_flow,productjd and select_date 
> '1990-01-01') 
*/ 

Insert into rlOl 

(rl01_reorg_date, 

product_id, 

rlOl^key, 

sourcejdentifier, 

issue_identifier, 

prior_source_identifier, 

effortjdentifier, 

mail_qty, 

select_date, 

key_descr, 

subs_this_week, 

subs_to_date, 

gross_subs, 

gross_subs_pct, 

net_subs, 

net_subs_pct, 

tot_net_subs, 

tot_net_subs_pct, 

pct_credit, 

pct_cred_renew, 

cred_pay_amt, 

credjpay_pct, 

avg_net_trm, 

avg_net_trm_value, 

avg_tot_net_trm, 

avg_tot_net_trm_value, 

subs_phone, 

subs_c_card, 

install_lst, 

install_lstJotal, 

subs_gift, 

subs_giftjpct__l st_trm, 

sub__years_gross, 

sub_years_gross_tot_net, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs, 
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est__max_efF_mail_qty, 

gross_cred_subs, 

net_cred_subs, 

fuifillment_title_name, 

^oss_list_rental_qty, 

net_list_rental_qty, 

package_identifier, 

key__descr2, 

donees_todate, 

total_orders, 

tot_order_pct_rspnce, 

renew_subs_pct 

, fulfil!ment_house) 

EXECUTEC'select rl01_reorg_date, 
product_id, 
rl01_key, 
source_identifier, 
issuejdentifier, 
prior_source_identifier, 
effort_identifier, 
mail_qty, 
seiect_date, 
key_descr, 
subs__this_week, 
subs_to_date, 
gross_subs, 
gross_subs_pct, 
net_subs, 
net_subs_j)ct, 
tot_net_subs, 
tot_net_subsj3ct, 
pct_credit, 
pct_cred_renew, 
cred_pay_amt, 
cred_pay_pct, 
avg_net_trm, 
avg_net_trm_value, 
avg_tot_net_trTn, 
avgJot_net_trm_value, 
subs_phone, 
subs_c_card, 
install__lst, 
install_lst_total, 
subs_gift, 

subs__gift_pct_l st_trm, 

sub_years^oss, 

sub_years^oss_tot_net, 

gross_sub_revenue, 

net_sub_revenue, 

gross_sub_copies, 

net_sub_copies, 

cash_subs, 

est_max_eff_mail_qty, 
gross_cred_subs, 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 40 of 142 



IMT Subscription Marketing Reporting System 



end 



net_cred_subs, 

flilfillment_title_name, 

gross_list__rental_qty, 

net_list_rental_qty, 

packagejdentifier, 

key_descr2, 

donees_todate, 

total_orders, 

tot_orderjpct_rspnce, 

renew_subs_pct 

, isnull(case import_file__type 

when ^A^ then 'CENTROBE 
when 'B' then 'CENTROBE' 
when 'C then ^CENTROBE' 
when then 'CENTROBE' 
when 'F' then 'CDS' 
when 'G'then 'CDS* 
when 'H' then 'CDS' 
when T then 'PALM COAST 
when 'J' then 'PALM COAST 
when 'K* then 'PALM COAST 
else null 

end 

,fuifiilment_house) 
from vrlOl_flow_max_dates, rl01_flow 
where mproductjd = product_id and 
mrl01_key=rl01_key and mdate=rl01_recrg_date 
order by mproduct Jd, mrl01_key, rlOI_reorg^date") 
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Procedure Name: doR401_suniniary 



truncate table r401__smnmary 



update r401_flow set select_date - getDateQ where not exists 
(select * from r40 Inflow r 

where r.r401_key = r401_flow.r401_key and r.productjd = r401_flow.productjd and select_date 
> '1990-01-01') 

Insert into r401_summary 
(r401_reorg_date, 
product^id, 
r401_key, 
source_identifier, 
creditjperiodjdentifier, 
current_source_identifier, 
effort_identifier, 
select_date, 
bilis_mailed, 
biHs_mailed_amt, 
this_week_pmt, 
total_pmt, 
pmt_j)ct, 
step_up, 
step_up_pct, 
pmt_plus_step_up_rev, 
avg_rev_per_pmt, 

request_cancel, 

request_cancel_pct, 

per_cancel, 

per_cancel_pct, 

pmt_on_pmt, 

pmt__after_cancel, 

total_copies, 

fulfillment_title_name, 

est_max_eff_mail_qty 

, import_fiIe_type) 

EXECUTEC 

SELECT distinct r401_reorg_date, 

product_id, 

r401_key, 

source_identifier, 

creditjperiodjdentifier, 

current_source_identifier, 

effort_identifier, 

select_date, 

bills_mailed, 

bills_mailed_amt, 

this_week_j)mt, 

totaljpmt, 

pmt_pct, 

step_up. 
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step_up_pct, 

pTntjplus_step_up_rev, 

avg_rev_perjnnt, 

avg_tenn_per_pmt, 

request_cancel, 

request_cancel_pct, 

per_cancel, 

per_cancel_pct, 

pmt_onjpmt, 

pmt_after_cancel, 

total_copies, 

fulfiliment_title_name, 

est_max_eff_mail_qty 

, import_file_type 

from vr401_flow_max_dates, r401_flow where mproductjd = productjd and 
mr401_key=r401_key and mdate=r401_reorg_date order by productjd, r401_key, r401__reorg_date 
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Procedure Name: doRecycieKey 



@product_id_r nuineric(8,2), 
@promo_key_r varchar (25) 
AS 

declare @rlOl_key varchar(25), 

@seiect_date smaiidatetime, 
@mail_qty numeric(12,2X 
@product_id numeric(8,0), 
@fuIl_j)romo_key varchar(25), 
@dt_valid_to smalldatetime, 
©source Jdentifier char(l), 
@keyCount numeric(8,0), 
@src_cat_name VARCHAR(50), 
@r40l_key varchar(25), 
@bills_mailed numeric(9), 
@fulfillment_house varchar{50), 
@import_fiie_type varchar(50) 

select @src__cat_naine = src_cat_name 

from keys where flill_j)romo_key - @promo_key_r 

and product_id = @product_id_r 

if @src_cat_name = 'Billing' 
BEGIN 

print @src_cat_name 

declare c_r401 cursor for /* r40l recordset - the main/reference one */ 
select r401_key,select_dat^bills_mailed,product_id,source_identifier, import_file_type from 

r401_summary 
where r40 l_key - @promo_key_r 
and product_id - @product_id_r 

open c_r40 1 

fetch c_r401 into @r401_key,@seiect_date,@bills_maiied,@productjd,@source_identifier, 
@import_file_type 

while (@@fetch_status = 0) 
begin 

Insert into avail_keys (full_j}romo_key,dt_valid_to,mail_qty,productjd,sourcejdentifier, 
position 1 ,position2,position3,position4,position5,position6, position?, 
position8,position9,positionl0, fuifillment^house ) values 

(@r401_keyJSNULL(@seIect_date,getDateO),@bins_mailed,@productJd,@source_identifi 
SUBSTRING(@r40 Lkey, I , l),SUBSTRING(@r40 Lkey^, 1 ),SUBSTRING(@r40 1 _key,3 , 1 ), 
SUBSTRING(@r401_key,4,l),SUBSTRJNG(@r401_key,5,l), 

SUBSTRING(@r40l_key,6J),SUBSTRING(@-401_key,7,l),SUBSTRING(@r401_ke^ 
isnull(SUBSTRING(@r401_key,9,l), null), 
ISNULL(SUBSTRING(@r40 l_key, 1 0, l),null) 

, case @import_fiIe_type 

when 'A' then 'CENTROBE' 
when 'B' then 'CENTROBE' 
when *C' then 'CENTROBE' 
when 'E' then 'CENTROBE' 
when T' then 'CDS* 
when 'G' then 'CDS' 
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when 'H' then 'CDS' 

when T then 'PALM COAST' 

when 'J' then TALM COAST 

when 'K* then 'PALM COAST 

end) 

fetch c_r401 into @r401_key,@select_date,@bills_mailed,@productjd,@sourcejdentifier, 
@import_file_type 
end 

close €^-401 
deallocate c_r401 

-delete from avail_keys where exists 
"(select * from keys k 

-where k,fuil_promo_key = avail_keys,fiili_promo_key and k.productJd = 
avail_keys,product_id) 
return 
END 

ELSE 

BEGIN 
print '101 stuff 
set nocount on 

/♦add for product id smarts */ 

declare c_rl01_r cursor for /* rlOl recordset - the main/reference one */ 

select rl01_key,seiect__date,mail_qty,product_id,source_identifier, fulfilhnent_house fromrlOl where 
productjd = @productJd_r and riOl^key = @promo_key_r 
open c_rl01_r 

fetch c_ri01_r into @rr01_key,@select_date,@mail_qty,@product_id,@sourcejdentifier, 
@import_fiIe_type 
while (@@fetch_status = 0) 
begin 

Insert into avail_keys 

(frill j)romo_key,dt_validjo,mail_qty,product_id,sourcejdentifier,positionl,position2,position3,position4, 
position5,position6, position?, frilfrllment_house) 
values 

(@rl01_keyJSNULL(@select_date,getDateO),@mail_qty,@productJd,@sourceJdentifier,SUBS 

(@rl01_key,l,l),SUBSTmG(@rl01>y^,l),SUBSTRmG(@rl01_key,3a),SUBSTRm^ 

,4,l),SUBSTRING(@rl01_key,5,l),SUBSTRING(@rI01_key,6 



, 1 ),SUB STRING(@r 1 0 l_key,7, 1 ) 
, @import_file_type) 

fetch c_rl01_r into @rl01_key,@select_date,@mail_qty,@productjd,@sourcejdentifier, 
@import_file__type 
end 

close c_rl01_r 
deallocate c_rIOl_r 
return 
END 
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Procedure Name: doRecyciePanelKey 



@rec_id numeric(8,2) 
AS 

/* get primary key info */ 

declare @camp_name varchar{250), 

@source_name varchar(50), 

@panel_name Varchar(250), 

@src_cat_name Varchar(30), 

@product_id numeric(5), 

@keys_product_id numeric(5), 

@full_promo_key niimeric(5) 

SELECT @camp_name = camp_name, 

@source_name = source_name, 

@panel_name = panel_name, 

@src_cat_name = src_cat_name, 

@product_id ^ product_id 
FROM panels 
WHERE recjd = @rec_id 

declare c_keys cursor for 

select full_promo__key, product_id 

from keys 

where product_id = @product_id 
and camp_name == @camp_name 
and source_name = @source_name 
and panel_name ^ @panel_name 
and src_cat_name = @src_cat_name 

open c_keys 

fetch c_keys into @fulljpromo_key,@keys_product_id 

while (@@fetch_status ^ 0) 
begin 

exec doRecycleKey @keys__productJd, @fuil_promo_key 

fetch c_keys into @full j)romo_key,@keys_productJd 

end 

close c_keys 
deallocate c_keys 
delete from keys 

where product_id @product_id 
and camp_name = @camp_name 
and source_name = @source_name 
and panel__name - @panel_name 
and src_cat_name = @src_cat_name 

return 
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Procedure Name: doSourcelnds 



/** creates a src_indicator placeholder from 101 flow ***/ 
declare @var_src__ind char(l), @var_targetjnd char(l) 
declare c_rl01_ind cursor for 

select distinct source_identifier from rIOl 
declare c_source cursor for 

select src_indicator from source where srcjndicator = @var_src_ind 
open c_rl01_ind 

fetch c_rl01_md into @var_src_ind 
if (@@fetch_status o 0) 
begin 

print "No Source Indicators found in r 101" 

close c_rl01_ind 

deallocate c_rl01Jnd 

return 

end 

while (@@fetch_status = 0) 
begin 

open c source 

fetch c_source into @var_target_ind 
If (@@fetch_status o 0) 
begin 

Insert into source (src_cat_name,src_indicator,source_name) values 
CUNASSIGNED',@var_src_^ind;MISSrNG*) 
close c_source 
end 
else 
begin 

close c_source 
end 

fetch c_rlOl_ind into @var_src_ind 
end 

close c_rlOI_ind 
deallocate c_rlO l_ind 
return 
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Procedure Name: doSummary 



BEGIN - only for Palm Coast titles at Primedia 

update r401_f!ow set select_date = r401_reorg_date where select_date ^ '1900-01- 
END 

BEGIN 

PRINT 'Executing dorl01_summary' 
end 

BEGIN 

execute dorl01_summary; 

PRINT 'Execution of dorl01_summary complete' 

END 

BEGIN 

PRINT 'Executing dor401_summary' 
END 

BEGIN 

execute dor40 l_summary; 

PRINT 'Execution of dor401_sunimary complete' 

END 



BEGIN 

PRINT 'Executing doavailkeys' 
END 

BEGIN 

execute doavailkeys; 

PRINT 'Execution of doavailkeys complete' 
END 



BEGIN 

PRINT 'Executing doavaiWOl keys' 
END 

doavail401keys runs when doavailkeys runs ! 

"BEGIN 

-execute doavaiWOl keys; 

-PRINT 'Execution of doavaiWOl keys complete' 

-END 

BEGIN 

execute doEstMaxEffort ; 

PRINT 'Execution of doavaiWOl keys complete' 

END 

Begin 

Insert into summary Jog values(GetDateO, 'Summary Procedure Run') 
Print 'Updated summary log' 
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Procedure Name: getCorpInfo 



/****** Object: Stored Procedure dbo.getCorpInfo Script Date: 1/14/99 3:43:06 PM ******/ 
/****** Object: Stored Procedure dbcgetCorpInfo Script Date: 1/12/99 1 1:05:37 PM ******/ 

( 

@productJd numeric(8,0) 
) 

AS 

select * from corp_info where product_id = @product_id 
return 
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Procedure Name: expenses 

/****** Object: Stored Procedure dbo.expenses Script Date: 1/14/99 3:43:07 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 1/12/99 1 1:05:38 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 1 1/28/98 2:31:13 PM ******/ 

Object: Stored Procedure dbo.expenses Script Date: 1 1/17/98 2:43:36 PM ******/ 

/****** Object: Stored Procedure dbo.expenses Script Date: 10/19/98 6:03:58 PM ******/ 

declare @e_set_name varchar (50),@product_id numeric(8,2), 

@print_cost numeric(l 1, 3),@print_cpm_cpu varchar (10), 
@print_basis varchar (20), 

@ltr_cost numeric(l 1, 3),@ltr_cpm__cpu varchar (10), 
@ltr_basis varchar (20), 

@postage_out_cost numeric(l 1, 3),@postage_out_cpm_cpu varchar (10), 
@postage_out_basis varchar (20), 

@postage_in_cost numeric(l 1, 3),@postage_in_cpm_cpu varchar (10), 
@postage_in_basis varchar (20), 

@premium_cost numeric(l 1, 3),@premium_cpm_cpu varchar (10), 
@premium_basis varchar (20), 

@badpay__cost numeric(l 1, 3),@badpay_cpm_cpu varchar (10), 
@badpay_basis varchar (20), 

@billing_cost numeric(l 1, 3),@billing__cpm_cpu varchar (10), 
@billing_basis varchar (20), 

@subs_svc_costs nunieric(l 1, 3),@subs_svc_cpm_cpu varchar (10), 
@subs_svc_basis varchar (20), 

@exp_fixed_costs numeric(l 1, 3),@exp_fixed_cpm_cpu varchar (10), 
@exp_fixed_basis varchar (20), 

@exp_other_costs numeric(l 1, 3),@exp_other_cpm_cpu varchar (10), 
@exp_other_basis varchar (20), 

@fuli_promo_key varchar (10), 
@leveil_expense numeric(12,3), 
@leveI2__expense numeric(I2,3), 
@levei3_expense numeric(12,3), 
@rl01_key varchar(lO), 
@mail_qty numeric(12,2), 
@gross_subs numeric(7,2), 
@net_subs integer, 

@ll_tmp numeric (12,3), 

@ll_value numeric (12,3), 

@l2__tmp numeric (12,3), 

@12__value numeric (12,3), 

@13_tmp numeric (12,3), 

@13_value numeric (12,3) 
declare c_exp cursor for 

select expense_sets-e_set__name, expense_sets.product_id, 

print_cost,print_cpm_cpu,print_basis, 

ltr_cost,ltr_cpm_cpu,ltr_basis, 

/^deleted list_cost,cpm and basis because of redesign-iist library activities., moved to key, still 

need to add code for calculating */ 

postage_out_cost,postage_out_cpm_cpu,postage_out_basis, 

postage_in__cost,postage_in_cpm_cpu,postage_in_basis, 

premium_cost,premium_cpm_cpu,premium_basis, 
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badpay_cost,badpay__cpm_cpu,badpay_basis, 

biiliBg_cost,billing_cpm_cpu,billing_basis, 

subs_svc_costs,subs_svc_cpni_cpu,subs_svc_basis, 

exp_fixed__costs,exp_fixed_cpm_cpu,exp_fixed_basis, 

exp_other_costs,exp_other_cpm_cpu,exp_other_basis, 

full_pronio_key, 

level l_revenue, 

level2_revenue, 

level3_revenue, 

rl01_key, 

mail_qty, 

gross_subs, 

net_subs 

from expense_sets,keys,rl01 where keys-productJd=expense_sets.productJd and 
keys,product_id=rl01.product_id and 

keys.e_set_name - expense_sets.e_set_name and keys,fiilljpromo_key = rlOLrl01_key 

Order by expense_sets.e_set_name 
open c_exp 
fetch c_exp into 

@e_set_name,@productJd, 

@print_cost,@print_cpm_cpu, 

@print_basis, 

@ltr_cost,@Itr_cpm_cpu, 

@itr_basis, 

@postage_out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cpm_cpu, 

@postage_in_basis, 

@premium_cost,@premium_cpm_cpu, 

@premium_basis, 

@badpay_cost,@badpay_cpm__cpu, 

@badpay_basis, 

@bilUng_cost,@billing_cpm_cpu, 
@billing_basis, 

@subs_svc_costs,@subs__svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs,@exp_fixed_cpm_cpu, 
@exp_fixed_basis, 

@exp_other_costs,@exp_other_cpm_cpu, 
@exp_other_basis, 

@full_promo_key, 

@levell_expense, 

@levei2_expense, 

@level3_expense, 

@rl01_key, 

@mail_qty, 

@gross_subs, 
@net_subs 
while (@@fetch_status = 0) 
begin 

select @ll_tmp = 0 
select @ll__value = 0 

select @12__tmp = 0 i 
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select @12_vaiue = 0 
select @l3_tmp = 0 
select @13_vaiue = 0 

y**+***********++*************LEVEL i***********^***********************************/ 
If (@print_basis = 'Mail Qty') 
begin 

select @li_tmp (@mail_qty * @print_cost) 
end 

else if (@print_basis = 'Gross Subs') 
begin 

select @ll_tmp = (@gross_subs * @print_cost) 
end 

else if (@print_basis = "Net Subs') 
begin 

select @ll_tmp = (@net_subs * @print_cost) 
end 

if (@print_cpm_cpu = 'CPM') 
begin 

select @ll_tmp = @ll_tmp / 1000 
end 

select @ll_value= @ll_value + @ll_tmp 

select @U_tmp = 0 
If (@Itr_basis = 'Mail Qty') 
begin 

select @ll_tmp = (@mail_qty ♦ @ltr_cost) 
end 

else if (@ltr_basis = 'Gross Subs') 
begin 

select @ll_tnip = (@gross_subs * @Itr_cost) 
end 

else if (@Itr_basis = ^Net Subs') 
begin 

select @ll_tmp = (@net_subs * @Itr_cost) 
end 

if (@ltr_cpm_cpu - 'CPM') 
begin 

select @ll_tnip = @ll_tmp / 1000 
end 

select @il_value= @ll_value + @ll_tmp 

select @ll_tmp = 0 
If (@postage_out_basis = 'Mail Qty') 
begin 

select @ll_tmp = (@mail_qty * @postage_out_cost) 
end 

else if (@postage_out_basis = 'Gross Subs') 
begin 

select @ll_tmp = (@gross_subs * @postage_out_cost) 
end 

else if (@postage_out_basis = 'Net Subs') 
begin 

select @ll_tmp = (@net__subs * @postage_out_cost) 
end 

if (@postage_out_cpm_cpu = 'CPM') 
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begin 

select @ll_tmp = @ll_tinp / 1000 
end 

select @ll_value= @ll_value + @n_tmp 

^*******+*********************L£VEL 1 ***********************************************/ 
^*****#****+*+****************L£Y£L 2***********************************************/ 

If (@postage_in_basis = 'Mail Qty') 
begin 

select @12_tmp = (@mail_qty ♦ @postage_in_cost) 
end 

else if (@postage_in_basis = 'Gross Subs') 
begin 

select @12_tmp = (@gross_subs * @postage_in_cost) 
end 

else if (@postageJn_basis = T<et Subs') 
begin 

select @12_tmp ^ (@net_subs * ©postage Jn_cost) 
end 

if (@postage_in_cpm_cpu ~ 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end 

select @12_value= @12_value + @12_tmp 

select @l2_tnip = 0 

If (@premium_basis = *Mail Qty*) 



begin 






select @12_tmp 


= (@mail_qty * @premium_ 


_cost) 


end 






else if (@premium_basis 


= 'Gross Subs') 




begin 






select @I2_tmp 


= (@gross_subs * @premium_cost) 


end 






else if (@premium_basis 


-'Net Subs') 




begin 






select @12_tmp 


= (@net_subs * @premium_ 


_cost) 


end 






if (@premium_cpm_cpu 


= 'CPM') 




begin 






select @12_tmp 


= @12_tmp/ 1000 




end 







select @12_value= @12_value + @12_tmp 
select @12_tmp = 0 

If (@badpay__basis = 'Gross - Net Subs') 
begin 

select @12_tmp = ((@gross_subs - @net_subs) * @badpay_cost) 
end 

if (@badpay_cpra_cpu = 'CPM') 
begin 

select @12_tmp = @12_tmp / 1000 
end ' 

select @12_value= @12_value + @12_tmp 
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select @i2_tmp = 0 
If (@biiling_basis - Mail Qty') 
begin 

select @12_tmp = (@mail_qty * @billing_cost) 
end 

else if (@billing_basis ^ *Gross Subs') 
begin 

select @12_tmp = (@gross_subs * @billing_cost) 
end 

else if (@billing_basis = ^et Subs') 
begin 

select @12_tmp = (@net_subs * @billing_cost) 
end 

if (@billing__cpm_cpu - 'CPM') 
begin 

select @12_tmp = @12jmp / 1000 
end 

select @12 value= @l2_value + @12_tmp 
If (@subs_svc_basis = 'Mail Qty*) 



begin 


= (@niail_qty * @subs_svc_costs) 


select @13_tmp 


end 




else if (@subs_svc_basis 


= 'Gross Subs') 


begin 




select @13_tmp 


= (@gross_subs * @subs_svc_costs) 


end 




else if (@subs_svc_basis 


= 'Net Subs') 


begin 


= (@net_subs * @subs_svc_costs) 


select @13_tmp 


end 




if (@subs_svc_cpm_cpu 


= 'CPM') 


begin 




select @i3_tmp 


= @13_tmp/ 1000 


end 





select @13_value= @13_value + @13_tmp 

select @13_tnip = 0 
If (@exp_fixed_basis = 'Mail Qty') 
begin 

select @13_tmp = (@mail_qty * @exp_fixed_costs) 
end 

else if (@exp_fixed_basis = 'Gross Subs') 
begin 

select @13_tmp = (@gross_subs * @exp_fixed_costs) 
end 

else if (@exp_fixed_basis = Ivlet Subs') 
begin 

select @l3_tmp = (@net_subs * @exp_fixed_costs) 
end 

if (@exp_fixed_cpm_cpu = 'CPM') 
begin 

select @13_tmp = @13_tmp / 1000 
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end 

select @i3_value^ @13_value + @13_tmp 
select @13_tmp = 0 
If (@exp_other_basis = Mail Qty*) 
begin 

select @13_tmp = (@mail_qty * @exp_other__costs) 
end 

else if (@exp_other_basis = 'Gross Subs') 
begin 

select @B_tmp = (@gross_subs * @exp__other_costs) 
end 

else if (@exp_other_basis = 'Net Subs') 
begin 

select @l3_tmp = (@net_subs * @exp_other_costs) 
end 

if (@exp_other_cpm_cpu = 'CPM') 
begin 

select @l3_tmp = @13_tmp / 1000 
end 

select @13 value- @13 value + @l3_tmp .......... 

/♦+**+V*****+****V************LEVEL3***********^ 

UPDATE keys SET level l_expense = @ll_value,level2_expense = @l2_valuejevel3_expense = 

@13_value WHERE CURRENT OF c_exp 
fetch c_exp into 

@e_set_name,@product_id, 
. @print_cost,@print_cpm_cpu, 

@print__basis, 

@ltr_cost,@ltr_cpm_cpu, 

@ltr_basis, 

@postage_out_cost,@postage_out_cpm_cpu, 
@postage_out_basis, 

@postage_in_cost,@postage_in_cpni_cpu, 

@postage_in_basis, 

@premium_cost,@premium_cpm_cpu, 

@premiuni_basis, 
@badpay_cost,@badpay_cpm_cpu, 

@badpay_basis, 

@billing_cost,@billing__cpm_cpu, 
@biUing_basis, 

@subs_svc__costs,@subs_svc_cpm_cpu, 
@subs_svc_basis, 

@exp_fixed_costs,@exp_fixed_cpm_cpu, 
@exp_fixed_basis, 

@exp_other_costs,@exp_other_cpm_cpu, 
@exp_other_basis, 

@fiill_pronio_key> 

@levell_expense, 

@level2__expense, 

@Ievel3_expense, 

@rlOl„key, 

@mail_qty, 

@gross_subs, 

@net_subs 

end 
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close c_exp 
deallocate c__exp 
return 
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Procedure Name: maxBillEffort 



update r401_fiow set est_max_efF_maiI_qty = bills_mailed where effort_identifier = T 
update r401__summary set est_max_efF_mail_qty =bills_mailed where effortjdentifier 'T 
update r40i_flow set est_max_eff_mail_qty 0 where est_max_eff_mail_qty is null 
update r401_summary set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: maxEffort 



update rl01_flow set est_max_eff_maii_qty mail_qty where effortjdentifier = 1 
update rlOl set est_max_eff_mail_qty = maii_qty where effortjdentifier = 1 
update rl01_flow set est_max_efF_mail_qty = 0 where est_max_eff_niail_qty is null 
update rlOl set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: maxGiftEffort 



update r301_flow set est__max_eff_mail_qty = mailjty where effort__identifier = T 
update r30l_sununary set est_max_eff_mail_qty = maii_qty where effort_identifier = 
update r30l_flow set est_max_eff_maii__qty = 0 where est_max_eff_mail_qty is null 
update r301_summary set est_max_eff_mail_qty = 0 where est_max_eff_mail_qty is null 
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Procedure Name: procedure Rebuild_Rpt_Cats 



begin 

UPDATES IMAGINE REPORTS 
truncate table imagine,dbo.rpt_cats 
insert into imagine. dbo,rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'IMAGINE Report Catolog Updated' 
END 

- UPDATES IMT PRESENTATIOIN REPORTS 
truncate table IMTPresentation.dbo,rpt_cats 
insert into IMTPresentation.dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt__cats 
BEGIN 

PRINT 'IMT Presentation Report Catolog Updated' 
END 

" UPDATES DWELL REPORTS 
truncate table dwelLdbo,rpt_cats 
insert into dwell.dbo.rpt__cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_filters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated' 
END 

- UPDATES DWELL REPORTS 
truncate table demo.dbo.rpt_cats 
insert into demo,dbo.rpt_cats 

select src_cat_name, src_sub_cat, location, rpt_name, rpt_description, rpt_fi Iters from 
pmedia.dbo.rpt_cats 
BEGIN 

PRINT 'Dwell Report Catolog Updated' 
END 

End 
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Procedure Name: sp_add autosetup_scheme 



@product_id int 

, @src__cat_nanie varchar(50) 

, @src_indicator varchar(3) 

, @soiirce_name varchar (250) 

, @valid_from datetime 

, @valid__to datetime 

, @setup_mask varchar(50) 

, @e_set_name varchar(50) 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @title = title_name 

, @grp_name = grp_name 
from corp_info 

where product_id = @product_id 
-gw added next line 

if @e_set_name is null set @e_set_name = 'Undefined' 

insert into autosetup_scheme 
( 

product_id 
, title 

, grp_name 
, src_cat_name 
, src_indicator 
, source_name 
, valid_from_date 
, valid_to_date 
, setup_mask 
, e_set_name 

) 

values 

( @product_id 
, @title 
. @grp_name 
, @src_cat_name 
, @src_indicator 
, @source_name 
, @valid_from 
, @valid_to 
, @setup_mask 
, @e_set_name 

) 
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Procedure Name: sp Add Carapaign 



@camp_name varchar(250), - i 
@camp_type varchar(50), --2 
@camp_status_name varchar(20), 3 
@camp_date_fr smalldatetime, 4 
@camp_date_to smalldatetime, - 5 
@agt_code varchar( 10), - 6 
@agt_descr varchar(50), - 7 
@e_set_name varchar(50), — 8 
@r_set_name varchar(50), - 9 
@newstand_sale numeric( 18), - 1 0 
@budgetedjgrossj)Ct numeric(9), 1 1 
@budgeted_vol numeric(9), -12 



@source_name varchar (250), -- 13 
@src_indicator char (3 ), -14 
@product__id numeric(8,0), - 1 5 
@src_cat_name varchar(30), - 16 
@grp_name varchar(50), -- 17 
@title_name varchar (250) - 1 8 



camp_name, 

camp_type, 

camp_status_name, 

camp_date_fr, 

camp_date_to, 

agt_code, 

agt_descr, 

e_set_name, 

r_set_name, 

newstand_sale, 

budgeted__vol, 

budgetedjgrossjct. 



product_id, 

src_cat_name, 

soiirce_name, 

src__indicator, 

grp__name, 

title name 



@camp_name, 

isNuIl( @camp_type,'Undefmed'), 
isNulI( @camp_status_name,'Undefmed'), 
@camp_date_fr. 




) 

values 
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@camp_date_to, 

@agt_code, 

@agt_descr, 

isnuIl(@e_set_name,'Undefmed'), 

isnuli(@r_set_name/Undefined'), 

@newstand_sale, 

@budgeted_voI, 

@budgeted_^oss_j)ct, 

@product_id, 

@src_cat_name, 

@source_name, 

@src_indicator, 

@grp_name, 

@title_name 
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Procedure Name: sp__add_campaign_def 



@product_id int 
, @campaign_code varchar(50) 
, @campaign_description varchar(50) 
, @src_cat_name varchar(50) 
, @campaign_date datetime 
, @panel_scheme varchar(50) 
AS 

insert into autosetup_campaign_def 
( product_id 

, campaign_code 

, campaign_description 

, src_cat_name 

, campaign_date 

, panel_scheme 

) 

values 

( @product_id 

, @canipaign_code 
, @campaign_descnption 
, @src_cat_name 
y @campaign_date 
, @panel_scheme 

) 
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Procedure Name: sp_Add_Corp_Panel_Sub_Type 

@panel_sub_type_name varchar(50), 
@panel_sub_type_descr varchar(250) 

AS 

insert into Corp_Panel_Sub_Type 
( 

panel_sub_type_name, 
panel_sub_type_descr 

) 

values 
( 

@panel_sub_type_name, 
@panel_sub_type_descr 
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Procedure Name: sp_Add_Corp_Panel_Test_Type 

@paneljest_type_name varchar(50), 
@paneijest_type_descr varchar(250) 

AS 

insert into Corp_Panel_Test_Type 
( 

panel_test_type_name, 
panel_test_type_descr 

) 

values 

( 

@panel_test_type_name, 
@panel_test_type_descr 

) 
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Procedure Name: sp_Add_Corp_Pane!_Type 



@panel_type_name varchar(50), 
@panel_type_descr varchar(250) 

AS 

insert into Corp_PaneI_Type 
( 

panel_type_name, 
panel_type_descr 

) 

values 

( 

@panei_type_name, 
@panel_type_descr 

) 
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Procedure Name: sp Add Keys 



@rec_id numeric(9,0), 
@src_cat_name varchar(50), 
@source_name varchar(250), 
@src_indicator char (3), 
@camp_name varchar (250), 
@panel_name varchar (250) 

AS 

declare @product_id numeric(8,0), -for keys table 

@full_promo_key varchar (25), 
@dt_valid_fi-om smalldatetime, 
@dt_vaiid_to smalldatetime, 
@key_mail_qty numeric(8,0), 
@list_cost_basis varchar(25), 
@list_cat_name varchar(250), 
@Iist_name varchar(250), 
@list_segment__name varchar(250), 

- for info from panels table 

@PANEL_TYPE varchar(50), 
@PANEL_SUBTYPE varchar(50), 
@TEST_TYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFER__PRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50), 
@PANEL_DATE_START smalldatetime, 
@PANEL_DATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar(50), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime, 
@E_SET_NAME varchar(50), 
@R_^SET_NAME varchar(50), 
@newstand_sale_marker varchar(50), 
@newstand_,sale NUMERIC(18) 

select @full_j)romo_key = fiill_promo_key, 

@dt_valid_to = dt_valid_to, 

@productJd product_id, 

@key_maii_qty = mail_qty 
from avail_keys 
where rec_id=@rec_id 

-get panel and other info for key table 
declare cjpanel_info cursor for 
select PANEL_TYPE , 
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PANEL_SUBTYPE , 
TEST_TYPE , 
PANEL_OFFER, 
PANEL_OFFER„PRICE , 
PANEL__PKG , 
PANEL_PREMIUM , 
PANEL_DATE_START, 
PANEL_DATE_END , 
GRP_NAME , 
TITLE^NAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGT_CODE , 
AGT_DESCR , 
CAMP_DATE_FR , 

CAMP_DATE_,TO, E_SET_NAME, R_SET_NAME 

from panels where product Jd = @product_id and src_cat_name = @src_cat_name and 
source_name = @source_name 

and camp_name = @camp_name and panel_name = @panel_name 
select @PANEL_TYPE = PANEL_TYPE , 

@PANEL_SUBTYPE = PANEL_SUBTYPE , 

@TEST_TYPE-TEST_TYPE , 

@PANEL_OFFER = PANEL_OFFER, 

@PANEL_OFFER__PRICE = PANEL_OFFER_PRICE , 

@PANEL_PKG = PANEL_PKG , 

@PANEL_,PREMIUM = PANEL_PREMIUM , 

@PANEL_DATE_START - PANEL_DATE_START, 

@PANEL_DATE_END - PANEL_DATE_END, 

@GRP_NAME = GRP_NAME, 

@TITLE_NAME-T1TLE_NAME , 

@CAMP_TYPE - CAMP_TYPE , 

@CAMP_STATUS_NAME - CAMP_STATUS_NAME , 

@AGT_CODE = AGT__CODE , 

@AGT_DESCR = AGT_DESCR , 

@CAMP_DATE_FR = CAMP_DATE_FR , 

@CAMP_^DATE_TO = CAMP_DATE_TO, 

@E_SET_NAME - E_SET_NAME, 
@R_SET_NAME = R_SET_NAME , 

@newstand_sale_marker = newstand_sale_marker, 

@newstand_sale = Newstand_sale 
from panels 

where product^id = @product_id 
and src_cat_name = @src_cat_name 
and source_name = @source_name 
and camp_name - @camp_name 
and panel_name = @panel_name 

insert into keys 
( 

fiiH_promo_key, 

dt_valid_from, 
dt_validJo, 
src_cat_name, 
src_indicator. 
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panel^name, 

camp_name, 

product_id, 

source_name, 

key_mail_qty, 

PANEL_TYPE, 

PANEL_SUBTYPE, 

TEST_TYPE, 

PANEL_OFFER, 

PANEL_OFFER_PRICE, 

PANEL_PKG, 

PANEL_PREMIUM, 

PANEL_DATE_START, 

PANEL_DATE„END, 

GRP_^NAME, 

TITLE_NAME, 

CAMP_TYPE, 

CAMP_STATUS_NAME, 

AGT_CODE, 

AGT_DESCR, 

CAMP_DATE_FR, 

CAMP_DATE_TO, 

E_SET_NAME, 

R_SET_NAME, 

newstand_sale__marker, 

newstand_sale, 

list_cost_basis, 

list_cat_name, 

Iist_name, 

list_seginent_name 

) 

values 

{ @full_promo_key, 

dateadd(month,-20,@dt_valid_to), 

@dt_vaiid_to, 

@src_cat_narae, 

@src_indicator, 

@panel_name, 

@camp_name, 

@product_id, 

@source_name, 

@key_mail_qty, 

@PANEL_TYPE, 
@PANEL_SUBTYPE, 
@TEST_TYPE, 
@PANEL_OFFER, 
@PANEL_0FFER_PR1CE, 
isNull(@PANEL_PKG;Undefmed'), 
@PANEL_PREMIUM, 
@PANEL_DATE_START, 
@PANEL_DATE_END, 
@GRP_NAME, 
@TITLE_NAME, 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 71 of 142 



IMT Subscription Marketing Reporting System 



@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMP_DATE_TO, 

TJndefined\ 

Undefined', 

isNuIl(@newstand__saie_marker,'N'), 

@newstand_saie, 

Mail QTY', 

Undefined', 

Undefined', 

Undefined' 



if(@@error-0) 
begin 

Delete from avail_keys where rec_id = @rec_id 
end 

close c_panel_info 
deallocate cj5anel_info 
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Procedure Name: sp_Add_Keys2 

@rec_id numeric(9,0), 
@src_cat_name varchar(30), 
@source_name varchar(250), 
@src_indicator char (3), 
@camp_name varchar (250), 
@panel_naine varchar (250) 



declare @productJd numeric(8,0), -for keys table 

@full_pronio_key varchar (25), 
@dt_valid_from smalldatetime, 
@dt_valid_to smalldatetime, 
@key_mail_qty numeric(8,0), 

— for info from panels table 

@PANEL_TYPE varchar(50), 
@PANEL_SUBTYPE varchar(50), 
@TEST_TYPE varchar(50), 
@PANEL_OFFER varchar(50), 
@PANEL_OFFER_PRICE money, 
@PANEL_PKG varchar(50), 
@PANEL_PREMIUM varchar(50), 
@PANEL_DATE_START smalldatetime, 
@PANEL_DATE_END smalldatetime, 
@GRP_NAME varchar(50), 
@TITLE_NAME varchar(50), 
@CAMP_TYPE varchar(50), 
@CAMP_STATUS_NAME varchar(50), 
@AGT_CODE varchar(50), 
@AGT_DESCR varchar(50), 
@CAMP_DATE_FR smalldatetime, 
@CAMP_DATE_TO smalldatetime 



declare c_avail_key cursor for 

select full_promo_key, dt_valid_to, product Jd,mail_qty from avai^keys where rec_id=@rec_id 

open c_avail_key 

fetch c_avail_key into @full_promo_key, @dt_validJo, ©product Jd, @key_mail_qty 

-get panel and other info for key table 
declare c__panel_info cursor for 
select PANEL_TYPE , 

PANEL_SUBTYPE , 

TEST_TYPE , 

PANEL_OFFER, 

PANEL_OFFER_PRICE , 

PANEL_PKG , 

PANEL^PREMIUM , 

PANEL_DATE__START, 
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PANEL_DATE_END , 
GRP_NAME , 
TITLE__NAME , 
CAMP_TYPE , 
CAMP_STATUS_NAME , 
AGT_CODE , 
AGT_DESCR , 
CAMP_DATE_FR , 

CAMP_DATE__TO from panels where product Jd = @product_id and src_cat_name - 
@src_cat_name and source_name = @source_name 

and camp_name = @camp_name and panel_name = @panel_name 

open c_panel_info 
fetch c_panel_info into 

@PANEL_TYPE, 

@PANEL__SUBTYPE, 

@TEST__TYPE, 

@PANEL_OFFER, 

@PANEL_OFFER_PRICE, 

@PANEL_PKG, 

@PANEL_PREMIUM, 

@PANEL_DATE_START, 

@PANEL_DATE_END, 

@GRP_NAME, 

@TITLE_NAME, 

@CAMP_TYPE, 

@CAMP_STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

@CAMP_DATE_FR, 

@CAMP_DATE_TO 

print dateadd(month,-20,@dt_valid_to) 

insert into keys 

( 

fuli_promo_key, 

dt_valid_from, 

dt_valid_to, 

src_cat_name, 

src_indicator, 

panei__name, 

camp_name, 

productjd, 

source__name, 

key_mail_qty, 

PANEL_TYPE, 

PANEL_SUBTYPE, 

TEST_TYPE, 

PANEL_OFFER, 

PANEL_OFFER_PRICE, 

PANEL_PKG, 

PANEL_PREMIUM, 

PANEL_DATE_START, 
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PANEL_DATE_END, 

GRP_NAME, 

TITLE_NAME, 

CAMP_TYPE, 

CAMP_STATUS„NAME, 

AGT_CODE, 

AGT_DESCR, 

CAMP_DATE__FR, 

CAMP_DATE_TO 

) 

values 

( @fullj3romo_key, 

dateadd(month,-20,@dt_valid_to), 

@dt_vaiid_to, 

@src_cat_name, 

@src__indicator, 

@panel__name, 

@campjiame, 

@productJd, 

@source_name, 

@key__mail_qty, 

@PANEL_TYPE, 

@PANEL_SUBTYPE, 

@TEST_TYPE, 

(gPANEL^OFFER, 

@PANEL_OFFER_PRICE, 

@PANEL_PKG, 

@PANEL_PREMIUM, 

isNull( @PANEL_DATE_START,nuIl) , 

isNull(@PANEL_DATE_END,nun) , 

@GRP_NAME, 

@TITLE_NAME, 

@CAMP_TYPE, 

@CAMP^STATUS_NAME, 

@AGT_CODE, 

@AGT_DESCR, 

isNuli{@CAMP_DATE_FR,null) , 
isNull( @CAMP„DATE^TO,nuIl) 

) 

close c_avaii_key 
deallocate c_avail_key 

Delete from avail_keys where rec_id = @rec_id 

close c_paneI_info 
deallocate c_panel_info 
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Procedure Name: sp_Add_Pane! 



@panel_name varchar(250), - 1 
@panel_type varchar(50), -2 
@panel_subtype varchar(50), -3 
@test_type varchar(50), ~4 
@panel_pkg varchar{50), -5 
@panel_date_start datetime, -6 
@panel_date_end datetime, -7 
@e_set_name varchar(50), ~8 
@r_set_name varchar(50), —9 
@newstand_sale_marker char( 1 ), - 1 0 



@product Jd numeric(8,0), - 1 1 
@grp_name varchar(50), - 12 
@titie_name varchar (250), ~ 1 3 
@src_cat_name varchar(30), - 1 4 
@source_name varchar (250), - 1 5 
@src_indicator char (3), — 1 6 
@camp_name varchar(250), - 1 7 
@camp_type varchar(50), -18 
@camp_status_name varchar(20), -19 
@agt_code varchar( 1 0), -20 
@agt_descr varchar(50), -2 1 
@camp_date_fr datetime, -22 
@camp_date_to datetime -23 

AS 

declare 

@1E_SET_NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@lNewStand_saIe hRJMERIC(18) 
—get expense and revenue set names for pass down if blank 

select @1E_SET_NAME = E_SET_NAME, 
@1R_SET_NAME = R_SET_NAME, 
@iNewStand_sale = Newstand_saie 
from campaigns where productjd = @PRODUCT_ID 

and SRC_CAT_NAME = @SRC__CAT_NAME and SOURCE JvfAME = @SOURCE_NAME 
and CAMP_NAME = @CAMP_NAME 



insert into panels 
( 

panel_name, 

panel_type, 

panel_subtype, 

test_type, 

panel_pkg, 

panel_date_start, 

panel_date__end, 

e_set_name. 
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r__set_nanie, 
newstand_sale_marker, 

product_id, 
grp_name, 
title_name, 
src_cat_name, 
source_name, 
src_indicator, 
camp_name, 
campjype, 
camp_status_name, 
agt_code, 
agt_descr, 
camp_date_fr, 
camp_date__to, 
Newstand_sale 

) 

values 
( 

@panel_name, 

isnull(@panel_type;UndefinedO, 

isnull(@paneI_subtype;UndefinedO, 

isnull(@test_type,TJndefined'), 

isnuU(@panel_pkg;Undefmed'), 

@panel_date_start, 

@panel_date_end, 

isnulI(@e_^set_name,@lE_SET_NAME), 
isnull(@r_set_name,@lR_SET_NAME), 
@newstand_sale_marker. 



@product_id, 

@grp_name, 

@titie_name, 

@src_cat_name, 

@soiirce_name, 

@src_indicator, 

@camp_name, 

@camp_type, 

@camp_status__name, 

@agt_code, 

@agt_descr, 

@camp_date_fr, 

@camp_date_to, 

@lNewStand_sale 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 77 of 142 




IMT Subscription Marketing Reporting System 



Procedure Name: sp_add_panel_def 



@product_id int 
, @panel_scheme varchar(50) 
, @panel_codes varchar(250) 
, @panei_name varchar(50) 



insert into autosetup_panel_def 



AS 



( 



product_id 



, panel_scheTne 
, panel_codes 
, panel_naine 



) 

values 
( 



@product_id 



, @panel_scheme 
, @panel_codes 
, @panel_name 



) 
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Procedure Name: sp_Add_prior_Source_desc 



@prior_soiirce Jdentifier char (2) 
, @prior_source_desc varchar (20) 
, @biliing_cur_src_desc varchar (255) 
, @modeI__source_cat varchar(50) 
, @mode!_source varchar(50) 
, @agent_src_desc varchar(50) 
, @vaIid_from_date datetime 
, @vaiid_to_date datetime 
, @product_id numeric(l8, 0) 

as 

insert into Prior_source_desc 

( 

product_id 

, prior_sourceJdentifier 
, prior_source__desc 
, billmg_cur_src_desc 
, model_source_cat 
, model_source 
, agent_src_desc 
, valid_from_date 
, valid_to_date 

) 

values ( 

@product_id 

, @prior_source Jdentifier 
, @prior_source_desc 
, @billing_cur_src_desc 
, @model_source_cat 
, @model_source 
, @agent_src_desc 
, @valid_from__date 
, @valid_to_date 

) 
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Procedure Name: sp_Add_Prod_Camp_Status 

@camp_status_name varchar(20), 
@camp_status_descr varchar(250), 

@product__id numeric(8,0) 

AS 

insert into Prod_Camp_Status 

( 

camp_status_name, 
camp_status_descr, 
product__id 

) 

values 
{ 

@cainp_status_name, 
@camp_status_descr, 
@product_id 
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Procedure Name: sp_Add_Prod_Camp_Type 



@camp_type_name varchar(250), 
@camp_type_descr varchar(250), 

@product_id numeric(8,0) 

AS 

insert into Prod_Camp_Type 
( 

camp__type_name, 
camp_type_descr, 
product_id 

) 

values 

( 

@camp_type_name, 
@camp_type_descr, 
@product_id 
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Procedure Name: sp_Add_Prod_E_S€t 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_costnumeric(ll, 3) , 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purgenunieric(ll, 3) , 
@merge_cpm_cpu varchar (10) , 
@merge_basis varchar (20) , 
@ltr_costnumeric(ll,3) , 
@itr_cpm_cpu varchar (10) , 
@ltr_basis varchar (20) , 
@postage_out_cost numeric(l 1,3), 
@postage_out_cpm_cpu varchar (10) , 
@postage_out_basis varchar (20) , 
@postageJn_costnumeric(lU3) , 
@postage_in_cpni_cpu varchar (10) , 
@postage_in_basis varchar (20) , 
@premium_cost numeric(l 1,3), 
@premium_cpni_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost nuineric(i 1,3), 
@badpay_cpm_cpu varchar (10) , 
@badpay_basis varchar (20) , 
@billing_costnumeric(ll,3) , 
@biliing_cpm_cpu varchar (10) , 
@billing_basis varchar (20) , 
@subs_svc_costs numeric(l 1,3), 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp__other_costs nunieric(l 1, 3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) 

AS 

insert into expense_sets 
( 

product_id , 
e__set_name , 
print_cost , 
print_cpm_cpu , 
print_basis, 
merge_purge, 
merge_cpm_cpu, 
merge_basis, 
ltr_cost , 
ltr_cpm_cpu , 
ltr_basis , 
postage_out_cost , 
postage_out_cpm_cpu , 
postage_out_basis , 
postage_in_cost , 
postage_in_cpm_cpu , 
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postage_in_basis , 
premium_cost, 
premium_cpm_cpu, 
premium_basis , 
badpay_cost , 
badpay_cpm_cpu , 
badpay_basis , 
billing_cost , 
billing_cpm_cpu , 
billing_basis , 
subs_svc_costs , 
subs_svc_cpm_cpu , 
subs_svc_basis , 
exp_other_costs , 
exp_other_cpm_cpu , 
exp_other_basis 

) 

values 
( 

@product Jd , 
@e_set_name , 
@print_cost , 
@print_cpm_cpu , 
@print_basis, 
@mergej)urge, 
@merge_cpm_cpu, 
@merge__basis, 
@ltr_cost , 
@ltr_cpm_cpu , 
@ltr_basis , 
@postage_out_cost , 
@postage_out_cpm_cpu , 
@postage_out_basis , 
@postage_in_cost , 
@postage Jn_cpm_cpu , 
@postage_in_basis , 
@premium_cost, 
@premium_cpm_cpu, 
@premium_basis , 
@badpay_cost , 
@badpay_cpm_cpu , 
@badpay_basis , 
@biIling_cost , 
@biiling_cpm_cpu , 
@biUing_basis , 
@subs_svc_costs , 
@subs_svc_cpm_cpu , 
@subs_svc_basis , 
@exp_other_costs , 
@exp_other_cpni_cpu , 
@exp__other_basis 



Integrated Marketing Technology 



9/27/00 3:38 PM 



IMT Subscription Marketing Reporting System 



Procedure Name: sp_Add_Prod_List_cat 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 



insert into List__cats 

( 

list_cat_name, 
list_cat_descr, 
product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_List_Naine 



-added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id nmneric(8,0) 

AS 

insert into List_names 
( 

list_name, 

Iist_name_description, 
product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 

) 
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Procedure Name: sp_Add_Prod_List_Seginent 



« added on 01/05/2000 

@name varchar(250), 
@descr varchar(250), 
@product_id numeric(8,0) 

AS 

insert into List_Segments 

( 

list_segment_name, 

list_segnient_description, 

product_id 

) 

values 
( 

@name, 
@descr, 
@product_id 
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Procedure Name: sp_Add_Prod_Panel_Package 



@package_nanie varchar(50X 
@package_description varchar(25 0), 
@ProductJd nunieric(9) 

AS 

insert into Prod_panel_Package 
( product_id, 

package_name, 

package_description 

) 

values 

( @productJd, 

@package_name, 
@package__description 

) 
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Procedure Name: sp_Add_Prod_R_Set 



@product_id numeric(8, 0), 
@r_set_naine varchar (50) , 
@subs_revenue numeric(l 1, 3) , 
@subs_cpm_cpu varchar (10) , 
@ad_revenue numeric(l 1, 3), 
@ad_cpm_cpu varchar (10), 
@listrentai_revenue numeric(l 1,3), 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10) 

AS 

insert into revenue_sets 
( product Jd , 

r_set_name , 

subs_revenue , 

subs__cpm_cpu , 

ad_revenue, 

ad_cpm_cpu , 

listrental_revenue, 

listrental_cpm_cpu , 

other_revenue, 

other_cpm_cpu ) 

values 

( @product_id , 

@r_set_name , 
@subs_revenue , 
@subs_cpm_cpu , 
@ad_revenue, 
@ad_cpm_cpu , 
@listrental_revenue, 
@Iistrental_cpm_cpu , 
@other_revenue, 
@other_cpm_cpu ) 
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Procedure Name: sp_add_renewal_psdef 



@product Jd int 

, @src_cat_name varchar(50) 

, @src_indicator varchar(50) 

, @prior_src_indicator varchar(250) 

, @source_name varchar (250) 

, @valid_from datetime 

, @vaHd_to datetime 

AS 

declare @title varchar(50) 
declare @grp_name varchar(50) 

select @titie = title_name 
from corp_info 

where productjd = @product_id 

insert into autosetup_renewal_psdef 
( 

product_id 
, title 

, src_cat_name 

, source_indicator 

, prior_source_indicator 

, source_name 

, valid_from_date 

, valid_to_date 

) 

values 

( @product_id 
, @title 

, @src_cat_name 
, @src_indicator 
, @prior_src_indicator 
, @source_name 
, @valid_from 
, @vaIid_to 
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Procedure Name: sp_Add_Source 

@source_name varchar (250), 
@src_indicator char (3), 

@productJd numeric(8,0), 
@src_cat__name varchar(30), 
@grp_name varchar(50), 
@title_name varchar (250) 

AS 

insert into source 
( 

product_id, 

src_cat_nanie, 

source_name, 

src_indicator, 

grp_name, 

title_nanie 

) 

values 

( @product_id, 

@src_cat__name, 

@source_name, 

@src_indicator, 

@grp_name, 

@titie_name 
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Procedure Name: sp_Add_Source_description 



@u_source_name varchar(250), 
@u_source_description varchar(250) 

AS 

insert into Source_descriptions 

( 

u_source_name, 
u_source_description 

) 

values 
( 

@u_source_name, 
@u_source_description 

) 
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Procedure Name: sp__cascade_product_id 



INSERT INTO list_cats 
SELECT product_id, 'Undefined'," 
FROM corp_info 
WHERE productjd not in { 

select product_id 

FROM list_cats 

WHERE list_cat_name = 'Undefined* ) 



INSERT INTO Iist_names 
SELECT productjd, 'Undefined'," 
FROM corp Jnfo 
WHERE productjd not in ( 

select productjd 

FROM list_names 

WHERE list_name = 'Undefined* ) 

INSERT INTO list_segments 
SELECT productjd, 'Undefined'," 
FROM corp Jnfo 
WHERE productjd not in ( 

select product_id 

FROM list_segments 

WHERE Iist_segment__name = 'Undefined' ) 

INSERT INTO expense_sets 
SELECT productjd, 'Undefined', 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null, 

null, null, null, null,' 

null, null, null, null, 

null, null, null, null, 

null 

FROM corp_info 
WHERE productjd not in ( 

select productjd 

FROM expense_sets 

WHERE e_set_name 'Undefined' ) 

INSERT INTO revenue_sets 
SELECT productjd, 'Undefined', 

null, null, null, null, 

null, null, null, null 
FROM corp_info 
WHERE productjd not in ( 

select productjd 

FROM revenue_sets 

WHERE r_set_name = 'Undefined' ) 
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INSERT INTO prod_camp_status 
SELECT productjd, 'Undefined^ 
FROM corpjnfo 
WHERE productjd not in ( 

select product_id 

FROM prod_camp_status 

WHERE camp_status_name = 'Undefined' ) 

INSERT INTO prod_camp_type 
SELECT productjd, 'Undefined'," 
FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM prod_camp_type 

WHERE camp Jype_name = 'Undefined' ) 

INSERT INTO prod_panel__package 
SELECT productjd, ^Undefined'," 
FROM corpjnfo 
WHERE productjd not in ( 

select productjd 

FROM prod_panel_package 

WHERE package_name = 'Undefined* ) 
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Procedure Name: sp_DeleteCamp_Statuses 

@product Jd numeric(9), 
@camp_status_name varchar(20) 

AS 

delete from camp_statuses where productjd = @productJd and camp__status_name = 
@camp_status__name 



Integrated Marketing Technology 



9/27/00 3:38 PM 



Page 94 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: sp_DeleteCamp_Types 

@productJd numeric(9), 
@camp_type varchar(50) 

AS 

delete from camp_types where product_id = @product_id and camp_type = @camp_type 
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Procedure Name; sp_DeletePanel_SubTypes 

@product_id numeric(9), 
@panel_subtype varchar(50) 

AS 

delete from p_sub_types where product Jd = @productJd and panel_subtype = @panel_subtype 
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Procedure Name: sp_DeIetePanel__TestTypes 

@product_id numeric(9), 
@test_type varchar(50) 

AS 

delete from p Jest_types where product Jd = @productJd and test_type - @test_type 
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Procedure Name: sp DeletePanel Types 

@product_id numeric(9), 
@panel_type varchar(50) 

AS 

delete from p_types where product_id = @product_id and panel__type = @panel_type 
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Procedure Name: sp_DeIeteRPT_Def 

@rpt_id numeric(9) 
AS 

delete from rpt_Defs where rptjd = @rpt_id 
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Procedure Name: sp edit autosetup 

@src_cat_name varchar(50) 
, @src_indicator varchar(lO) 
, @source_name varchar(250) 
, @vaiid_from_date datetime 
, @valid_to_date datetime 
, @setup_mask varchar(50) 
, @e_set_name varchar(50) 
, @login Varchar(50) 
, @rec_id numeric(8,0) 
, @isDelete numeric(l,0) 

AS 



If(@isDelete=l) 
begin 

delete from autosetup_scheme where rec_id = @recjd 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_scheme 

SET src_cat_name = @src_cat_name 

, source_name = @source_name 

, src_indicator = @src_indicator 

, valid_from_date = @valid_from_date 

, valid_to_date = @vaiid_to_date 

, setup_mask = @setup_mask 

, e_set_name = @e_set_name 
WHERE recjd = @recjd 
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Procedure Name: sp_edit autosetup_campaign_def 

@campaign_code varchar(50) 

, @campaign_description varchar(200) 

, @src_cat_name varchar(250) 

, @campaign_date datetime 

, @panel_scheme varchar(50) 

, @recjd numeric(8,0) 

, @isDeiete numeric(l,0) 

AS 

If(@isDelete-l) 
begin 

delete from autosetup_campaign_def where rec_id = @recjd 
end 

if(@isDelete-0) 
begin 

UPDATE autosetup_campaign_def 
SET campaign_code = @campaign_code 

, campaign_description = @campaign_description 

, src__cat_name = @src_cat_name 

, campaign_date = @campaign_date 

, panel_scheme - @panel_scheme 
WHERE recjd = @rec_id 
End 
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Procedure Name: sp_edit_autosetup_panel_def 



@panel_scheme varchar{50) 
, @panel_codes varchar(255) 
, @panel_name varchar(50) 
, @rec_id numeric{8,0) 
, @isDelete numeric(l,0) 

AS 

If(@isDeiete=l) 
begin 

delete from autosetup_j)anel_def where recjd = @rec_id 
end 

if(@isDelete=0) 
begin 

UPDATE autosetup_panel_def 
SET panel_scheme = @panel_scheme 

, panel_codes = @panel_codes 

, panei_name = @panel_name 
WHERE recjd = @rec_id 
end 
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Procedure Name: procedure sp_edit_autosetup_renewal_psdef 



@src_cat_name varchar(50) 

, @source_name varchar(50) 

, @source__indicator varchar(50) 

, @prior_source_indicator varchar(255) 

, @valid_from_date datetime 

, @vaiid_to_date datetime 

, @recjd numeric(8,0) 

, @isDelete numeric{l,0) 

AS 

If(@isDelete=l) 
begin 

delete from autosetup_renewal_j)sdef where rec_id = @rec_id 
end 

if(@isDeIete-0) 
begin 

UPDATE autosetup_renewal_psdef 

SET src_cat_name = @src__cat__name 
, source_name = @source__name 
, source_indicator = @source__indicator 
, prior_source_indicator = @prior_source_indicator 
, valid_from_date @valid_from_date 
, vaIid_to_date ^ @valid_to_date 

WHERE recjd = @recjd ' 
end 
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Procedure Name: sp_Edit_Campaign 

@camp_name varchar(250), -- 1 
@camp_date_fr smalldatetime, -- 2 
@camp_type varchar(50), -3 
@camp_status_name varchar(20), - 4 
— @camp_date_to smalldatetime, — 5 
--@agt_code varchar(lO), - 6 
-@agt__descr varchar(50), 7 
@e_set_name varchar(50),. - 8 
@r_set_nanie varchar(50), - 9 
~@newstand_sale numeric( 18), ~ 1 0 
@budgeted_gross_pct numeric(l8,3), - 11 
@budgeted__vol numeric(18,3), --12 
@loginVARCHAR(50), -13 

@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare 

@1PR0DUCT_ID numeric(8,0), 
@1CAMP_NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@lE_set_name Varchar(50), 
@lR_set_name Varchar(50), 
@lsrc_cat_name VARCHAR(30), 
©message VARCHAR(255) 

-Copy vars 

declare @copycampname varchar(50) 
declare @copies int 

-get camp, panel and other info for deletions from key table 
begin -sp 

select @1PR0DUCT JD = product_id, 

@1CAMP_NAME = camp_name, 

@1S0URCE_NAME = soiirce_name, 

@lsrc_cat_name = src_cat_name , 

@lE_set_name = E_set_name, 

@lR_set_name = r_set_name 
from campaigns 
where recjd = @recjd 

if {@IsDelete=2) -then copy existing campaign and associated records into new record(s) 
begin 

set @copycampname = "Copy _ of " + @camp_name 
-Get number of next copy 
select @copies (count(*) + I) 
from campaigns 

where camp_name like @copycampname 
if ©copies < 10 set ©copycampname - "Copy " + cast(©copies as varchar(l )) + " of " 
else set ©copycampname = "Copy " + cast(©copies as varchar(2)) + " of " 
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-Insert new copy of campaign 
insert campaigns (src_indicator, 

src_cat_name, 

product_id, 

camp_type, 

camp_name, 

camp_status_name, 

--agt_code, 

"agt_descr, 

camp_date_fr, 

-camp_date_to, 

e__set_name, 

r_set_name, 

grp_name, 

tit[e_name, 

source_name, 

newstand__sale, 

budgeted^oss_pct, 

budgeted_vol, 

campaign_code) 

—values 

select src_indicator, 
src__cat_name, 
productjd, 
camp^type, 

@copycampname + @camp_name as campname, 

camp_status_name, 

— agt_code, 

-agt_descr, 

camp__date_fir, 

--dateadd(month,},camp_date_to) as camp_date_to, 

e_set_name, 

r_set_name, 

grp__name, 

title_name, 

source_name, 

newstand_sale, 

budgeted_^ossj3ct, 

budgeted_vol, 

campaign_code 
from campaigns 
where rec_id = @rec_id 

—Insert new copies of panels from the campaign we are copying 
insert panels 

select @copycampname + @camp_name as camp_name, 
src_mdicator, 
panel_name, 
src_cat_name, 
product_id, 
panel_type, 
e_set_name, 
panel_subtype, 
r_set_name, 
test_type, 
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panel__offer, 
panel_offer_j)rice, 
paneljkg, 
paneljremiuni, 
panel_date_start, 
panel_date_end, 
grp_name, 
title__name, 
source_name, 
camp_type, 
camp_status_name, 
agt_code, 
agt_descr, 
cainp_date_fr, 
camp_date_to, 
Newstand_Sale_Marker, 
Newstand_Sale, 
Budgeted_^oss_j)ct, 
Budgeted_vol, 
campaign_code 
, panel_code 
, null as order_qty 
, null as dist_qty 
from panels 

where productjd = @1PR0DUCT_ID 
and src_cat_name = @isrc_cat_name 
and source_name = @1S0URCE_NAME 
and camp_name = @1CAMP_NAME 



end "if 

If (@isDelete=l) -then delete campaign and associated records 
begin 

declare c_keys cursor for /* rlOl recordset - the main/reference one */ 
select productjd, full__promo_key 
from keys 

where productjd == @lproduct Jd 
and camp_name = @lcamp_name 
and SOURCE_NAME = @1S0URCE J4AME 
and src_cat_name = @isrc_cat_name 

declare 

@lkeys_PRODUCTJD numeric(8,0), 
@lfull_promo_key varchar(50) 

open c_keys 

fetch c_keys into @lkeys_productJd, @ifull_promo_key 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @lkeysjproductJd, @lfullj)romo_key 
fetch c_keys into @lkeys_product_id, @lfiill_promo_key 
end 

close c_keys 

deallocate c_keys 
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delete 
from keys 

where product_id = @1PR0DUCTJD 
and src_cat_name = @lsrc_cat_name 
and source_name - @1S0URCE_NAME 
and camp_name = @1CAMP_NAME 

delete 
from panels 

where product Jd = ©IPRODUCTJD 
and src_cat_name = @lsrc_cat_name 
and source__name = @1S0URCE_NAME 
and camp_name = @iCAMP_NAME 

delete from campaigns where recjd = @rec_id 
set ©message = 'Campaign: ' + @ICAMP_N AME + ' Source: ' + @1S0URCE_NAME + ' Srcj 
@lsrc_cat_name + *, delete applied to panel and keys' 

exec spjoginfo @lproductJd, ©login, ^Delete Campaign*, ©message 
end 

if (@IsDelete=0) -Update 
begin 

update keys 
set camp__name = @camp_name, 
camp_type^isNull(@camp_type,TIndefined'), 
camp_status_name isNull( @carap_status_name,*UndefmedO, 
camp_date_fr=@camp_date_fr, 
~camp_date_to=@camp_date_to, 
-agt_code=@agt_code, 
-agt_descr=@agt_descr, 

-Newstand_sale = @newStand_sale, 

budgeted__vol = @budgeted_vol, — 1 1 

budgeted_gross_j)ct = ©budgeted _gross_pct 

where productjd = ©IPRODUCT JD 

and source_name - @IS0URCE__NAME 

and camp_name = @ICAMP_NAME 

and src_cat_name = @lsrc_cat_name 



update panels 

set camp_name = ©camp__name, 
camp_type=isNull(@camp_type,TJndefmed'), 
camp_status_name = isNull( ©camp_status jiame,Undefmed'), 
camp_date_fr=©camp_date__fr, 
"Camp_date__to=@camp_dateJo, 
~agt_code=@agt_code, 
--agt_descr=@agt_descr, 

--Newstand_sale = ©newStand_sale, 

budgeted_vol = ©budgeted_vol, - 1 1 

budgeted_grossj)ct = ©budgeted _grossj)ct 

where productjd = ©IPRODUCT JD 

and source_^name = ©ISOURCEJSfAME 

and camp_name = ©ICAMP JSfAME 

and src_cat_name = ©lsrc_cat_name 
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update campaigns 
set camp_name = @camp_name, 
camp_type=isNull(@camp_type;Undefmed'), 
camp_status_name = isNuli( @camp_status_name,'Undefined'), 
camp_date_fr==@camp_date__fr, 
~camp_date_to=@camp_date_to, 
— agt_code=@agt__code, 
-agt_descr==@agt_descr, 
e_set_name=isnuil(@e_set__name,'Undefmed'), 
r_set_name=isnulI(@r_set_name/Undefmed'), 
*-newstand_sa!e = @newstand_sa]e, 

budgeted__vol = @budgeted_vol, - 1 1 
budgeted_gross jpct = @budgeted_jross_pct 
where rec_id - @rec_id 
if (@e_Set_name o @lE_set_name ) 
BEGIN 
update panels 

set e_set_name = @e_Set_name 
WHERE product Jd = @IPRODUCTJD 
and source_^name = @1S0URCE_NAME 
and camp_name - @ICAMP_NAME 
and e_set_name = @le_Set_name 
and src_cat_name = @isrc_cat_name 

update keys 

set e_set_name = @e_Set__name 
WHERE product Jd = @IPR0DUCT_ID 
and source_name = @1S0URCE_NAME 
and camp_name - @1CAMP_NAME 
and e_set_nanie = @le_Set_name 
and src_cat_name = @Isrc_cat_name 
END 

if (@r_Set_name o @lr__set_name ) 
BEGIN 
update panels 

set r_set_name = @r_Set_name 
WHERE product Jd = @iPRODUCTJD 
and source_name = @IS0URCE_NAME 
and camp_name = @1CAMP_NAME 
and r__set_name = @lr_Set_name 
and src_cat__name = @lsrc_cat_name 
update keys 

set r_set_name ~ @r_Set_name 
WHERE product Jd = @1PR0DUCTJD 
and source_name = @IS0URCE_NAME 
and camp jiame ~ @1CAMP J^AME 
and r_set_name = @Ir_Set_name 
and src_cat_name = @Isrc_cat_name 
END 

close c_camp_info2 

deallocate c_camp_info2 

if @lcamp_name o @camp_name 

BEGIN 

set ©message = 'Old Campaign: ' + @1CAMP_NAME + \ New Campaign: ' + 
@CAMP_NAME + \ Source: ' + 
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@1S0URCE_NAME + Src_cat: ' + @lsrc_cat_name + edit applied to panel and keys' 

END 

ELSE 

BEGIN 

set ©message = 'Campaign: ' + @1CAMP_NAME + Source: ' + 
@iSOURCE_NAME + Src_cat: ' + @lsrc_cat_name + \ edit applied to panel and keys' 
END 

exec spjoginfo @iproduct_id, @login, 'Edit Campaign', ©message 

end "if 
end — sp 
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Procedure Name: sp_Edit_Corp_Panel__Sub_Type 



@panel_sub_type_name varchar(50), 
@panel_sub_type_descr varchar(250), 

@recjd numeric(8,0), 
@isDelete numeric(l,0) 

AS 

declare @oId_vaIue varchar(50) 

select @old_value = panel_sub__type_name 

From corp_panel_sub_type 

where rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade__update 'panel_subtype', @old_value,'UndefmedV* PANELS",-! 
delete from Corp_Panel_Sub_Type where rec Jd = @rec_id 

end 
else 
begin 

if @oId_value o @panel_sub_type_name 
begin 

exec cascade_update 'panel_subtype\ @old_value,@paneI_sub_type_name/'PANELS",-l 
end 

update Corp_Panel_Sub_Type 

set panel__sub_type_name = @panei_sub_type_name, 

panel_sub_type_descr = @panel_sub_type_descr where rec_id - @rec_id 

end 
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Procedure Name; sp_Edit_Corp_Panel_Test_Type 



@pane}_test__type_name varchar(50), 
@panel_test_type_descr varchar(250), 
@rec Jd numeric(8,0), 
@isDeIete numeric(l,0) 

AS 

declare @old__value varchar(50) 

select @old_value = panel_test_type_name 

From corp_paneI_test_type 

where rec_id = @rec_id 

If(@isDe[ete=l) 
begin 



exec cascade_update 'panel_testtype*, @old_value, 'Undefmed'/TANELS",-1 
delete from Corp_Panel_Test_Type where recjd = @rec_id 

end 
else 
begin 

if @old_value o @panel_test_type__name 
begin 

exec cascade_update *panel_testtype', @old_value, @panel_test__type_name,"PANELS",-l 
end 

update Corp_Panel_Test_Type 

set panel__test_type_name = @panel_test_type_name, 

panel__test_type_descr = @panel_test_type_descr where rec__id = @rec_id 

end 
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Procedure Name: sp_Edit_Corp_Panel_Type 

@panel_type_name varchar(50), 
@panel_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric( 1 ,0) 

AS 

declare @old__value varchar(50) 

select @old_value = panel_type_nanie 
From corp_panel_type 
where rec_id @rec_id 

If(@isDelete-l) 
begin 

exec cascade^update 'panel_type', @old_value;UndefmedVPANELS*, -1 
delete from Corp_Panel_Type where recjd = @rec_id 
end 

else 
begin 

if @old_value o @panel_type_name 
begin 

exec cascade_update 'panel_type*, @old_value, @panel_type_name, TANELS*, -1 
- exec corp_cascade_update 'panel^type', @old_value,@panel_type_name 
end 

update Corp_Panel_Type 

set panel_type_name = @panel_type_name, 

panel_type_descr = @panel_type_descr where rec_id = @recjd 

end 
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Procedure Name: sp_Edit_Key 

@P_KEY_DESCR varchar(250), 

@MAIL_QTY_0 VERRIDE varchar( 1 0), -decimal(l 8,0), 

@Newstand_Sale numeric(18,0), 

@Newstand_Sale_Marker char(l), 

@list_cat_name varchar(250), 

@Iist_name varchar(250), 

@list_segment_name varchar(250), 

@LIST_COST_ACTUAL_CPM numeric(18,0), 

@list_cost_basis varchar(25), 

@list_cost_factor numeric(9,2), 

@merge_j5urge_qty numeric(9), 

@E_SET_NAME varchar (50), 

@R_SET_NAME varchar(50) , 

@panel_pkg varchar(50), 

@subtotaI_flag varchar(6), 

@optional_effortjd Varchar(50), 

@recjd numeric(8,0), 

@isDelete numeric(l,0) 

AS 

If(@isDeiete=l) 
begin 

declare 

@rPRODUCTJD numeric(8,2), 

@rFULL_PROMO_KEY varchar(50) 
-get pid and key for recycle key routine 
declare c_key_info_r cursor for 
select productjd, full_promo_key 
from keys where rec_id = @rec_id 
open c_key_info_r 
fetch c_key_info_r into 

@rPRODUCT_ID, 

@rFULL_PROMO_KEY 
close c_key_info_r 
deallocate c_key_info_r 

execute doRecycleKey @rPRODUCT_ID, @rFULL_PROMO_KEY 

delete from keys where recjd = @recjd 

end 

else 

begm 

—validate data 

If not(@MAIL_QTY_OVERRIDE > 0) 

select @MAIL__QTY_OVERRIDE-null 
If (@E_SET_NAME = *^0") 

select @E_SET_NAME=null 
If (@R_SET_NAME - "0") 

select @R_SET_NAME=null 
-end data validation 
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update keys 

set P_KEY_DESCR=@P_KEY_DESCR, 

MAIL_QTY_OVERRIDE==@MAIL_QTY_OVERRIDE, 

Newstand_Saie = @Newstand_Sale, 

Newstand_Sale_Marker = @Newstand_Saie_Marker, 

LIST_CAT_NAMEHsnuil{@list_cat_name;Undefined'), 

LIST_NAME=isnuIl(@iist_naine;UndefinedO, 

LIST__SEGMENT_NAME=isnull(@list_segment_nanie;Undefmed*), 

LIST_COST_ACTUAL_CPM=@LIST_COST_ACTUAL_CPM, 

LIST_COST_BASIS - @list__cost_basis, 

list_cost_factor = @list_cost_factor, 

merge_j}urge_qty = @merge_purge_qty, 

e_set_name=isnull(@e_set_name,'Undefined'), 

r_set_name=isnull(@r_set__name,'Undefmed'), 

PANEL_PKG=isnull(@panel_j)kg;UndefmedO, 

subtotal_flag=@subtotal_flag, 

optional_effort_id = @optional_effort_id, 

date_assigned = getdateQ 

where rec Jd = @recjd 
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Procedure Name: sp_Edit_Panel 



@panel_name varchar(250), — 0 
@panel_date_start datetime, 1 
@panel_type varchar(50X -2 
@panel_subtype varchar(50), - 3 
@test_type varchar(50), -4 
@paneljpkg varcfaar(50), -5 
@e__set_name varchar(50X —6 
@r_set_naine varchar(50), -7 
-@newstand_sale_markerchar(l), -8 
@iogin Varchar(50), -9 

@rec_id nunieric(8,0), - 1 
@isDelete int - 1 

AS 

declare 

@1PR0DUCT JD numeric(8,0), 
@1PANEL_NAME varchar(50), 
@1CAMP_^NAME varchar(50), 
@1S0URCE_NAME varchar(250), 
@iSRC_CAT_NAME varchar(30), 
@lFull_promo_key varchar(25X 
@lkeys_product_id numeric(8,0), 
@IE_SET„NAME varchar(50), 
@1R_SET_NAME varchar(50), 
@lpanel_pkg varchar(50), 
@message Varchar(255), 
@srcJndicator char(3), 
@grp_name varchar(50), 
@copies int, 

@copypanelname varchar(50) 

"get panel and other info for deletions from key table 
select @IPR0DUCT JD = PRODUCTJD, 

@iPANEL_NAME = PANEL_^NAME, 
@ICAMP_NAME = CAMP_NAME, 
@1S0URCE J4AME = SOURCE_NAME, 
@1SRC_CAT_NAME = SRC_CAT_NAME, 
@le_set_name = e_set_name, 
@lr_set_name - r_set_name, 
@lpanel_pkg ^ panel_pkg, 
@src_indicator = src_indicator, 
@grp_name ~ grp_name 

from panels 

where rec_id - @rec_id 



If(@isDelete=l) 
begin 

declare cokeys cursor for /* rlO I recordset - the main/reference one */ 
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select product_id, full_promo_key 
from keys 

where product_id = @lproduct_id 
and camp_name = @icamp_name 
and SOURCE__NAME = @IS0URCE_NAME 
and panel_name = @lpanel_name 
and src_cat_name = @lsrc_cat_name 

open c_keys 

fetch c_keys into @Ikeys_product Jd, @lfuli_promo_key 

while (@@fetch_status = 0) 
begin 

exec doRecycleKey @ikeys_productJd, @lfull_promo_key 

fetch c_keys into @lkeys_productJd, @lfuil_promo_key 
end 
close c_keys 
deallocate c_keys 

delete from keys 

where product Jd = @1PR0DUCTJD 
and src__cat_name - @1SRC_CAT_NAME 
and source_name = @1S0URCE_NAME 
and camp_name = @lCamp_name 
and panel_name=@lPANEL_N AME 

delete from panels 
where recjd = @rec_id 

-close c_panel_info2 

--deallocate c_panel_info2 
set ©message = Tanei:' + @1PANEL_NAME + \Campaign:' @1CAMP_NAME + \Source:* + 
@IS0URCE__NAME + ',Src_cat:' + @lsrc_cat_name + ^delete applied to panel and keys' 
exec spjoginfo @lproduct_id, ©login, 'Delete Panel', ©message 

end 

if(@IsDelete=0) 

begin 

—declare 

-get expense and revenue set names for pass down if blank 

- NOT USING ANYMORE, this stuff should be defmed when keys are assigned 

select @lE_Set__name = E_SET_NAME, 
@lr_Set_name = R_SET_NAME 

- from campaigns where productjd = @1PR0DUCT_ID 

-and SRC_CAT_NAME = @1SRC_CAT_NAME and SOURCE_NAME = @IS0URCE_NAME and 
CAMP_NAME = @ICAMP_NAME 

PRINT *e set name-' + @€_set_name + *-e set name - + @1E_SET_NAME + '-' + CAST( 
@IPR0DUCT_ID as varchar) 

update keys 

set panel_name = @panel_name, 

panel_type=isnull(@panel_type,'Undefmed'), 

panel_subtype=isnull(@panel_subtype,'UndefmedO, 
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test__type==isnuli(@test_type,'Undefined'), 
panel j)kg==isnull(@panel_pkg/Undefined'), 
panel_date_start=@panel_date__start 
" newstand_sale_marker ~ @newstand_sale_marker 

- e_set_name=isnuIl(@e_set_name,@IE_SET_NAME), 

- r_set_name=isnun(@r_set_name,@lR_SET_NAME) 

where (panel_name + ':'+ camp_name src_cat_name source__name + + 
cast(product_id as varchar) ) 

= (select panel_name camp_name src_cat_name +':'+ source_name + 

cast(product Jd as varchar) from panels where recjd = @recjd ) 
if (@Ie_set_name o @e_set_name) 
begin 

update keys 
set e_set_name = @e_set__name 
-- panel_type==isnuil(@panel_type,'Undefined'), 

- panel_subtype=isnulI(@panel_subtype;Undefmed'), 

- test_type=isnuli{@test_type;UndefmedO, 

- panel_offer=@panel_ofFer, 

- panel_offer_price=@panel_offerj>rice, 
panel_pkg==isnuli(@panelj)kg,'UndefmedO, 
panel_premium=@paneljpremium, 
panel_date_start=@panel_date_start, 
panel_date_end==@panel_date_end 

" r_set_name^isnun(@r_set_name,@lR_SET_NAME) 
where e_set_name - @le_set_name and 

(panel_name + camp_name src_cat_name cast(productJd as varchar) ) 

= (select panel_name +V+ camp_name +':'+ src_cat_name +V+ cast(product_id as 

varchar) 

from panels where recJd = @rec Jd ) 

end 

if (@lr_set_name o @r_set_name) 
begin 

update keys 

set r_set_name = @r_set_name 
paneI_type=isnull(@panel_type,TJndefmedO, 
paneI_subtype=isnull(@panel_subtype/Undefmed'), 
-- test_type=isnull(@test_type,Undefmed'), 

- panel_ofFer=@panel_ofFer, 

" panel_ofFer_price=@panei_offer_price, 

panel_pkg=isnuU(@panel_pkg,XJndefmedO, 

- paneljpremium-@paneljpremium, 

- panel_date_start=@panel_date_start, 
panel_date_end=@panel_date_end 

r_set_name=isnull(@r_set_name,@lR_SET_NAME) 
where r_set_name = @lr_set_name and 

(panel_name + camp_name src_cat_name 
source_name + 4- cast(product Jd as varchar) ) = 
(select panel_name camp_name src_cat_name +V+ 
source_name + + cast(productJd as varchar) 
from panels where rec_id = @rec_id ) 

end 

if (@IPanel_pkg o @panel_pkg) 
begin 
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update keys 

set Panel_Pkg = @panel_pkg 
panel_type=isnuii(@panel__type/UndefmedO, 
panel_subtype=isnull(@panel_subtype;UndefinedO, 
test_type=isnuII(@test_type,Undefmed'), 
panel_ofFer=@panel_ofFer, 
panel_ofFer_price^@panel_offer_price, 
panel_j}kg=isnulI(@panel__pkg,UndefmedO, 
panel_preniium==@panel_j)remiuin, 
panel_date__start=@panel_date_start, 
panel_date_end=@panel_date_end 

r_set_name=isnull(@r_set_name,@iR_SET_NAME) 
where Panel_Pkg = @lpanei_j)kg and 

(panel_name + V+ camp_name src_cat_nanie 
source_name + + cast(productjd as varchar) ) = 
(select panel_name +V+ camp_name src_cat_name 
source_name + + cast(product_id as varchar) 
from panels where rec Jd = @rec Jd ) 

end 



update panels 

set panel_name = @panel_name, 

panei_type=isnull(@panel_type,TJndefmed*X 

panel_subtype=isnull(@panei_subtype,TJndefmedO, 

test_type=isnull(@test_type;Undefined'), 

panel_pkg=isnull(@paneljpkg;Undefmed'), 

panei__date_start=@panel_date_start, 

e_set_name=isnull(@e_set_name,@IE_SET_NAME), 

r__set_name=isnull(@r_set_name,@lR_SET_NAME) 

newstand_sale_marker = @newstand_sale_marker 

where rec_id = @rec_id 



if@lpanel_nameo @panel_name 
BEGIN 

set ©message = 'Old Panel:* + @1PANEL__NAME + \New Panel:' + @Panel_name + 
',Campaign:' + @1CAMPJS[AME + ',Source:* + @1S0URCE_NAME + \Src_cat:* + 
@lsrc_cat_name + \edit applied to panel and keys' 



END 
ELSE 
BEGIN 

set ©message - Tanel:' + @PANEL_NAME + 
',Campaign:* + @1CAMP_NAME + \Source:' + @IS0URCE_NAME + •,Src_cat:* + 
@lsrc_cat_name + \edit applied to panel and keys* 

end 

exec spjoginfo @lproductJd, @login, 'Edit Panel', ©message 

end 

if (@IsDelete=2) -then copy existing panel 
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begin 

set @copypanelname = 'Copy of ' + @panel_name 

"Get number of next copy 
select @copies = (count(*) + 1 ) 
from panels 

where panel_name like @copypanelname 
and camp_name = @lCamp_name 
and src_cat_name = @lsrc__cat_name 
and product_id - @Iproduct_id 
and source_name = @lsource_name 
if ©copies < 10 set @copypanelname = "Copy " + cast(@copies as varchar(l)) + " of" 
else set @copypanelname = "Copy " + cast(@copies as varchar(2)) + " of " 

set @panel_name = @copypanelname + @panel_name 
insert into panels (panel__name 

, panel__type 

, panel_subtype 

, test_type 

, paneljpkg 

, panel_date__start 

, e_set_name 

y r_set_name 

, productjd 

, camp_name 

, source_name 

, src_cat_name 

, src_indicator 

, grp^name) 

values 

(@panel_name 

, isnuIl(@panel_type,'Undefmed*) 
, isnull(@panel_subtype,TJndefmetf) 
, isnull(@test_type;Undefmed') 
, isnull(@panel__pkg,TJndefmed') 
, @panel_date_start 

, isnuII(@e_set_name,@lE_^SET_NAME) 

, isnuH(@r_set_name,@lR_SET_NAME) 

, @iPRODUCT_ID 

, @1CAMP_NAME 

, @IS0URCE„NAME 

, @1SRC_CAT„NAME 

, @src_indicator 

, @grp_name 

) 
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Procedure Name: sp edit_prior_Source_desc 



@prior_source_identifier char (2) 
, @prior_source_desc varchar (20) 
, @billing_cur_src_desc VARCHAR(255) 
, @model_source_cat varchar(50) 
, @rnodeI__source varchar{50) 
, @agent_src_desc varchar(50) 
, @valid_from_date datetime 
, @valid_to_date datetime 
, @rec_id numeric(8,0) 
, @isDelete int 

AS 

declare @old_value varchar{50), @old_productJd numeric(9) 

select @old_value - prior_source_identifier, 
@old_product_id = product Jd 
From prior_source_desc 
where rec_id = @rec_id 

If(@isDelete=l) 
begin 

exec cascade__update 'prior_source_identifier', @oId_value/-','KEYS*,@old_product_id 
delete from prior_source_desc where rec_id = @rec_id 

end 

else 

begin 

exec cascade_update 'prior_source_identifier', @old_value,'- ,'Est_max_effort', 

@oId__product_id 

update prior_source_desc 

set -prior_source Jdentifier = @prior_source_identifier , 

prior_source_desc = @prior_source_desc 

, billing_cur_src__desc = @billing_cur_src_desc 

, vaHd__from_date = @valid_from_date 

, valid_to_date = @valid_to_date 

, agent_src_desc = @agent_src_desc 

, modei_source = @model_source 

, model_source_cat = @model_source_cat 

where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Canip_Status 

@camp_stams_name varchar(20), 
@camp__status_descr varchar(250), 

@rec_id numeric(8,0), 
@isDeiete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @product_id numeric(9) 

select @old_value = 

camp_Status_name, 

@productJd = productjd 
FROM prod_canip_status 
WHERE recjd - @recjd 



If(@isDelete-l) 
begin 

exec cascade_update 'camp_status_name\ @old_value, 'Undefined', "CAMPAIGNS", @productJd 

delete from Prod_Camp_Status where recJd = @rec_id 
end 
else 
begin 

if @old_value o @camp_status_name 
begin 

exec cascade_update *camp_status_name', @old_value, @camp_statiis__name, 'CAMPAIGNS', 
@product_id 

- exec prod_cascade_update__w_camp *camp_status_name', @old_value, @camp_status_name , 
@product_!d 
end 



update Prod_Camp_Status 

set camp_status_name - @camp_status__name, 
camp_status_descr ^ @camp_status_descr where recJd = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Cainp_Type 

@camp_type_name varchar(20), 
@canip_type_descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete nuiiieric(l,0) 

AS 

Declare @oId_value VARCHAR(255), @productJd numeric(9) 

select @old_vaIue = 

camp_type_name, 

@product_id = productjd 
FROM prod_camp_type 
WHERE rec Jd = @rec Jd 

If(@isDelete=l) 
begin 

exec cascade_update 'camp_type\ @old_value, 'Undefined', 'CAMPAIGNS*, ©productjd 
- exec prod_cascade_update_w_camp 'camp__type', @old_vaiue, ^Undefined*, @productJd 

delete from Prod_Camp_Type where rec Jd = @rec Jd 
end 
else 
begin 

if @old_value o @camp_type_name 
begin 

exec cascade_update •camp_type_name', @oId_value, @camp_type_name, 'CAMPAIGNS', 
@productJd 

exec prod_cascade_update_w_camp 'camp_type', @old_value, @camp_type_name, ©product Jd 

end 

update Prod_Camp_Type 

set camp_type_name = @camp_type_name, 

camp_type_descr = @camp_type_descr where rec Jd = @rec Jd 

end 
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Procedure Name: sp_Edit_Prod__E_Set 



@product_id numeric(8, 0) , 
@e_set_name varchar (50) , 
@print_cost numeric(l 1,3), 
@print_cpm_cpu varchar (10) , 
@print_basis varchar (20) , 
@merge_purgenumeric(ll,3) , 
@merge_cpm_cpu varchar (10) , 
@merge_basis varchar (20) , 
@ltr_costnumeric(ll, 3) , 
@ltr__cpm_cpu varchar (10) , 
@ltr_basis varchar (20) , 
@postage_out_cost numeric(l 1,3), 
@postage_out_cpm_cpu varchar (10) , 
@postage_out_basis varchar (20) , 
@postage_in_costnumeric(ll,3) , 
@postage_in_cpm_cpu varchar (10) , 
@postage_in__basis varchar (20) , 
@premitun_cost numeric(i 1,3), 
@premium_cpm_cpu varchar (10) , 
@premium_basis varchar (20) , 
@badpay_cost numeric(l 1,3), 
@badpay_cpni_cpu varchar (10) , 
@badpay_basis varchar (20) , 
@billing_cost numeric(l 1,3), 
@billing_cpm_cpu varchar (10) , 
@billing_basis varchar (20) , 
@subs_svc_costs numeric(l 1,3), 
@subs_svc_cpm_cpu varchar (10) , 
@subs_svc_basis varchar (20) , 
@exp_other_costsnumeric(ll,3) , 
@exp_other_cpm_cpu varchar (10) , 
@exp_other_basis varchar (20) , 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @my_product Jd numeric(9) 
declare @e_set_id numeric(9) 

select @old_value = 
e_set_name, 

@my_product_id = product_id 
FROM expense_sets 
WHERE rec_id = @rec_id 

If(@i$Delete=l) 
begin 

exec cascade_update 'e_set_name*, @oId_vaiue, 'Undefmed\*CAMPAIGNS^ @product Jd 
delete from Expense_sets where rec_id = @rec_id 
end 
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else 
begin 

if @old_value o @e_set_name 
begin 

set @^_set_id = -1 
select @e_set_id = rec_id 

from expense_sets 

where e_set_name = @e_set_name 

and productjd = @product_id 

if @e_setjd = -1 exec sp_Add_Prod_E_Set -Create New Record, set everything to new e set and 
delete old one 

@product_id, @e_set_name, @print_cost, @print_cpm_cpu, @print_basis, 
@merge_purge, @merge_cpm_cpu, @merge_basis 

, @ltr_cost, @ltr_cpm_cpu, @ltr_basis, @postage_out_cost, @postage_out_cpm_cpu, 
@postage__out_basis, @postage_in_cost, @postage_in_cpm_cpu 

, @postage_in_basis, @premium_cost, @premium_cpm_cpu, @premium_basis, 
@badpay_cost, @badpay_cpm_cpu, @badpay_basis, ©billing^cost 

, @billing_cpm_cpu, @biiling_basis, @subs_svc_costs, @subs_svc_cpm_cpu, 
@subs_svc_basis, @exp_other_costs, @exp_other_cpm_cpu 

, @exp_other_basis 

exec cascade_update •e_set_name', @old_value, @e_set_name,'CAMPAIGNS', @product_id 
delete from expense_sets where recjd = @rec Jd 

end 
else 

update expense__sets 

set e_set_name = @e_set_name , 
print_cost = @print_cost , 
print_cpm_cpu = @print_cpm_cpu , 
print_basis - @print_basis , 
merge_purge = @merge__purge , 
merge_cpm_cpu = @merge_cpm_cpu , 
merge_basis = @merge_basis , 
ltr_cost ^ @ltr_cost , 
ltr_cpm_cpu = @ltr_cpm_cpu , 
itr_basis =@itr_basis, 
postage_out_cost = @postage_out_cost , 
postage_out_cpm_cpu =@postage_out_cpm_cpu , 
postage_out_basis =@postage_out__basis , 
postage_in_cost =@postage_in_cost , 
postage_in_cpm_cpu =@postage_in_cpm_cpu , 
postage_in_basis = @postageJn_basis , 
premium_cost = @premium_cost , 
premium_cpm_cpu = @premium_cpm_cpu , 
premium_basis = @premium_basis , 
badpay_cost = @badpay_cost , 
badpay_cpm_cpu = @badpay_cpm_cpu , 
badpay_basis = @badpay_basis , 
billing_cost = @billing__cost , 
billing^cpm_cpu = @biUing_cpm_cpu , 
billing_basis = @billing_basis , 
subs_svc_costs = @subs_svc_costs , 
subs_svc_cpm_cpu = @subs_svc_cpm_cpu , 
subs_svc_basis = @subs_svc_basis , 
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exp_other_costs = @exp_other_costs , 
exp_other_cpm_cpu = @exp_other_cpm_cpu , 
exp_other_basis = @exp_other_basis 
where rec Jd = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_List_Cat 



@name varchar(250), 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @oid_value VARCHAR(255), 
@product_id numeric(9) 

select @old_value = 

list_cat_name, 

@productJd = product_id 
FROM iist_cats 
WHERE recjd = @recjd 

If(@isDelete=l) 
begin 

exec cascade__update XIST_CAT_NAME', @old_value, Undefined, "KEYS", ©product Jd 
delete from List_Cats where recjd - @rec_id 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update *LIST_CAT_NAMF, @oid_vaiue, @name, "KEYS", @productJd 
end 

update List_Cats 

set List_Cat_name = @name, 

List_Cat_descr = @descr where rec_id = @rec Jd 

end 
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Procedure Name: sp_Edit__Prod_List_Name 



@name varchar(250)j 
@descr varchar(250), 
@rec_id numeric(8,0), 
@isDe!ete numeric(l,0) 



Declare @oid_^vaiue VARCHAR{255), @productJd numeric(9) 

select @old_value = 
list_name, 

@product_id = product_id 
FROM list_names 
WHERE rec_id = @rec Jd 



If(@isDelete-l) 
begin 

exec cascade_update 'LIST__NAMF, @old_value, 'Undefined', "KEYS", @product_id 
delete from List_Names where recjd = @recjd 

end 
else 
begin 

if @name o @old_value 
begin 

exec cascade_update TIST_NAME', @old_value, @name, ''KEYS", @product_id 
end 

update List_NAMES 

set List_name = @name, 
List_Name_description = @descr 
where rec Jd = @rec_id 

end 
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Procedure Name: sp_Edit Prod_List Segment 



@name varchar(250), 
@descr varchar(250), 
@rec_id nunieric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), 
@product_id numeric(9) 

select @old__value = 

list_segment_name, 
@product_id = productjd 
FROM list_segments 
WHERE rec Jd = @rec Jd 

If(@isDelete=l) 
begin 

exec cascade_update •LIST_SEGMENT_NAMF, @old_value, 'Undefined', "KEYS", @product_id 

delete from List_Segments where rec_id = @rec_id 
end 
else 
begin 

if @name o @oId_value 
begin 

exec cascade_update 'LIST_SEGMENT_NAMF, @old_value, @name, "KEYS", ©product Jd 
end 



update List_Segments 

set List_Segment_name - @name, 

List_Segment__description = @descr where rec_id = @rec_id 

end 
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Procedure Name: sp_Edit_Prod_Panel_Package 



@package_name varchar(50), 
@package_description varchar(250), 
@recjd numeric(8,0), 
@isDeiete numeric(l,0) 

AS 

If(@isDelete=i) 
begin 

delete from prod_panel_package where rec^id = @rec_id 

end 

else 

begin 

update prod_panel_package 

set package_name = @package_name, 

package_description = @package_description where recjd = @rec_id 

end 
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Procedure Name: sp_edit_Prod_R_Set 

@product_id numeric(8, 0), 
@r_set_name varchar (50) , 
@subs_revenue nunieric(l 1, 3) , 
@subs_cpm_cpu varchar (10) , 
@ad_revenue nuineric(l 1, 3), 
@ad_cpm_cpu varchar (10), 
@listrental_revenue numeric(l 1,3), 
@listrental_cpm_cpu varchar (10), 
@other_revenue numeric(l 1, 3), 
@other_cpm_cpu varchar (10), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

Declare @old_value VARCHAR(255), @my_productJd numeric(9) 

select @old_value - r_set_name, 

@my_product_id = product_id 
FROM revenue_sets 
WHERE rec Jd = @recjd 

If(@isDelete-l) 
begin 

exec cascade_update 'r_set_name\ @old_value, •Undefmed\'CAMPAIGNS', @product_id 

delete from Revenue_sets where recjd = @recjd 
end 
else 
begin 

if @old_value o @r_set_name 
begin 

exec cascade update 'r_set_name', @old__value, @r__set_,name ,'CAMPAIGNS*, @product_id 

end 

update revenue_sets 
set product_id ~@product_id , 

r_set_name = @r_set_name , 

subsjrevenue = @subs_revenue , 

subs_cpm_cpu =@subs_cpm_cpu , 

ad_revenue = @ad_revenue, 

ad_cpm_cpu ^ @ad_cpm_cpu, 

listrental_revenue= @listrental_revenue, 

Iistrental_cpm_cpu = @listrental_cpm_cpu , 

other_revenue = @other_revenue, 

other_cpm_cpu =@other_cpm_cpu 
where rec_id ~ @rec_id 
end 
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Procedure Name: sp_Edit_Source 



@source_nanie varchar(250), 
@src_indicator varchar(10), 
@login Varchar(50), 
@rec_id nunieric(8,0), 
@isDelete numeric(l,0) 

AS 



If(@isDelete-l) 
begin 

delete from source where rec_id = @rec_id 
end 
eise 
begin 
declare 

@PRODUCT_ID numeric(8,0), 
@src_cat_name varchar(50), 
@oId_source_name varchar(30), 
@old_src_ind varchar(3), 
©message VARCHAR(200) 
SELECT ©PRODUCT JD = Product Jd , 
@src_cat__name = src_cat_name, 
@oId_source_name = source__name , 
@old_src_ind = src_indicator 

FROM source where rec_id =@rec_id 

IF @source_name o @old_source_name or @src_indicator o @old_src_ind 
BEGIN 

set ©message = 'Change applied to Panel, Campaign and Key levels as well as Source' 

UPDATE campaigns 

SET source_name = @source_name, 

src_indicator = @src_indicator 
WHERE Productjd = ©Product Jd 

and src_cat_name = @src_cat_name 

and source_name = @old_source_name 

and src_indicator = @old_src_ind 
UPDATE Panels 

SET source_name = ©source_name, 

src_indicator = @src_indicator 
WHERE Productjd = @Product__id 

and src_cat_name = @src_cat_name 

and source_name = ©old_source_name 

and src_indicator = @old_src_ind 
UPDATE keys 

SET source_name = @source_name, 

src_indicator = @src_indicator 
WHERE Productjd = ©Productjd 

and src_cat_name = @src_cat__name 
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and soiirce_name = @old_source_name 
and src_indicator = @oId_src_ind 

update source 

set source__name = @source_naine, 

src_indicator = @src_indicator where rec_id = @rec_id 

exec sp Joginfo ©product Jd, @login, 'Edit Source', @message 
end 
end 
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Procedure Name: sp_edit_Source_description 

@u_source_name varchar(250), 
@u_source_description varchar(250), 
@rec_id numeric(8,0), 
@isDelete numeric(l,0) 

AS 

If(@isDelete=l) 
begin 

delete from Source_descriptions where recjd = @rec_id 

end 

else 

begin 

update Source_descriptions 

set u_source_nanie = @u_source_name, 

u_source_description = @u_source_description where rec_id = @rec_id 

end 
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Procedure Name: sp_LogInfo 



@product_id varchar(250), 
@iogin varchar(50), 
— log_tiniestamp 
@action varchar(50), 
@action_description varchar(100) 

As 

insert into logs (product_idJogin,log_timestamp,action,action_description) values 
{@product_id,@login,getdateO,@action,@action_description) 
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Procedure Name: sp_ReinoveDuplicatel01Keys 



@pid numeric(9) 
AS 

declare @rlOl_key varchar(lO), @select_date smandatetime,@product_id numeric(8,0), @rct_rec_num 
decimal(9),@rl01_reorg_date smaildatetime,@keyCount numeric(8,0) 



declare c_rl01dup cursor for 

select product_id,rl01_key, rl01_reorg_date, count(rl01_key) as cnt,max(rct_rec_num) as maxRecNum 
from rl01_flow where productjd = @pid group by productjd,rl0i_key,rl01_reorg__date order by 
productjd, cnt desc, rl01_key 

open c_ri01dup 

fetch c_rl01dup into @product_id,@rl01_key,@rl01_reorg_date,@keyCount,@rct_rec_num 
while (@@fetch_status = 0 and @KeyCount > 1 ) 
begin 

delete from rl01_f[ow where productjd = @product_id and rl01_reorg_date = 
@rl01_reorg;_date and rl01_key - @rl01_key and rct_rec_num < @rct_rec_num 

fetch c_rl01dup into ©product Jd,@rl01_key,@rl01_reorg_date,@keyCount,@rct_rec_nu^ 
end 

close c_rl01dup 
deallocate c_r 1 0 1 dup 
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Procedure Name: sp_RemoveDuplicate401Keys 



@pid numeric(9) 
AS 

declare @r401_key varchar(10), @select_date smaIldatetime,@product_id numeric(8,0), @r401_rec_num 
decimal(9),@r40l_reorg_date smaildatetime,@keyCount numeric(8,0) 



declare c_r40 Idup cursor for 

select product_id,r401_key, r40I_reorg_date, count(r401_key) as cnt,max(r40l_rec_num) as maxRecNum 
from r401_flow where productjd = @pid group by productjd,r40 l_key,r40i_reorg_date order by 
productjd, cnt desc, r401_key 

openc_r401dup 

fetch c_r401dup into @product_id,@r401_key,@r401_reorg_date,@keyCount,@r401_rec_num 
while (@@fetch_status 0 and @KeyCount > 1) 
begin 

delete from r40 l_flow where productjd = @product Jd and r40 l_reorg_date = 
@r401_reorg_date and r401_key = @r40l_key and r401_rec_num < @r401_rec_num 

fetch c_r40idup into @productJd,@r401_key,@r401_reorg_date,@keyCount,@r401_rec_num 
end 

close c_r401dup 
deallocate c_r401dup 
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Procedure Name; sp^UpdateCamp Statuses 



@productJd numeric(9), 
@camp_status__name varchar(20), 
@camp_status__descr varchar(250), 
@actionParam varchar{20), 
@kname varchar{20) 

AS 

If (@actionParam-' AddRec*) 
begin 

insert into camp_statuses (product_id, camp_status_name, camp_status_descr) values (@product_id, 

@camp__status_name, @camp_status_descr) 

end 

else 

If (@actionParam='EditRec') 
begin 

update camp__statuses set camp_status_name = @camp_status_name, camp_status__descr = 
@camp_status_descr 

where product_id - @product_id and camp_status_name = @kName 
end 
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Procedure Name: sp_UpdateCamp_Types 



@product_id numeric(9), 
@camp_type varchar(50), 
@cainp_type_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam='AddRec') 
begin 

insert into camp_types (product Jd, camp_type, camp_type_descr) values (@product_id, @camp_type, 

@camp__type_descr) 

end 

else 

If (@actionParam-TditRec') 
begin 

update campjypes set camp^type = @canip_type, camp_type_descr - @camp_type_descr 

where productjd @product Jd and canip_type = @kName 

end 
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Procedure Name: sp_UpdatePanel_SubTypes 

@productJd numeric(9), 
@panel_subtype varchar(50), 
@panei_subtype_descr varchar(250), 
@actionParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam- AddRecO 
begin 

insert into p_sub_types (product Jd, panel_subtype, paneLsubtype_descr) values (@product_id, 

@panel_subtype, @panel_subtype_descr) 

end 

else 

If (@actionParam- EditRec') 
begin 

update p_sub_types set panel^subtype = @panel_subtype, panel_subtype_descr = @panel_subtype_descr 

where product Jd = @product Jd and panel_subtype = @kName 

end 
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Procedure Name: spJJpdatePanel TestTypes 

@product_id numeric(9), 
@test_type varchar(50), 
@test_type_descr varchar(250), 
@actionParam varchar(20), 
@knanie varchar(20) 

AS 

If (@actionParam=' AddRec') 
begin 

insert into p_test_types (productjd, test_type, test_type_descr) values (@product_id, @test_type, 

@test_type_descr) 

end 

else 

If (@actionParani- EditRec') 
begin 

update p Jest_types set test_type = @test_type, test_type__descr = @test_type_descr 

where productjd = @product_id and test__type = @kName 

end 
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Procedure Name: sp_UpdatePaael_Types 

@product_id numeric(9), 
@panel_type varchar(50), 
@panel_type_descr varchar(250), 
@actioiiParam varchar(20), 
@kname varchar(20) 

AS 

If (@actionParam='AddRec') 
begin 

insert into p_types (product_id, panel_type, panel_type_descr) values (@product_id, @panel_type, 

@panel_type_descr) 

end 

else 

If (@actionParam=*EditRec') 
begin 

update p_types set pcmel_type = @panel_type, panel_type_descr = @panel_type_descr 

where productjd = @product_id and panel_type - @kNanie 

end 



Integrated Marketing Teciinology 



9/27/00 3:38 PM 



Page 141 of 142 



IMT Subscription Marketing Reporting System 



Procedure Name: spGetRPTList 



@src_cat_name varchar(30), 
@src_sufa_cat varchar(50) 

AS 

SELECT report Jd,rpt_name, rpt__description, location, rpt_filters 
FROM rpt_cats 

WHERE src_cat_nanie ~ @src_cat_name 
AND src_sub_cat = @src_sub_cat 
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IMT Reporting 

ABOUT IMT 



Integrated Marketing Technology is an application service provider (ASP) founded in 1993 to be the premier 
pro^'der of integrated marketing consulting and database sen/ices to subscription and membership-based 
nr^rketing companies, IMTs mission is to allow businesses to make faster, more informed, and more strategic 
decisions through its sophisticated technology tools and marketing services. 

^Information at Your Fingertips" 

We provide actionable marketing information directiy to the people who have their finger on the pulse of the 
business. If s the only way to turn raw data into knowledge, and if s the key to our company's, and our dienfs, 
success, IMVs systems allow instant, real-time access to critical corporate data and analysis - from high-level 
assessment of sales channels to detailed evaluation of individual campaigns or lists. 

A flexible and powerful web-based application requiring no specialized hardware or software, IMT Reporting offers 
companies accurate and consistent analysis of their mariceting initiatives. IMT Reporting provides highly 
segmented, deariy defined marketing analysis at almost any level - from source channel to campaign to list. 

The Benefits: 



• Proven, insightful customer acquisition and retention analysis 

• Improved Lifetime customer value reporting 

• Channel ranking and analysis based on order volume and profitability 

• Multi-contract customer depletion analysis 

• Consistent interpretation of data 

• Cross-product, aoss-organizationa! reporting 

• Full historical mariceting information and analysis 

• Improved marketing ROI 

• Dramatic cost savings 



Through IMTs Internet-based reporting products, marketers have more control over when they receive and 
disperse criti'cal marketing data. Businesses can decide whether they want to receive daily or weekly data feeds 
from order processing and fulfillment operations systems. Whatever frequency they choose, they will get this 
information in real time. 





# 
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IMT Reporting 

" SYSTEM REQUIREMENTS 

PC Computers 

• An Intel* i485"' or Pentium* processor - based computer (Pentium recommended), Miaosoft Windows 95, 
Windows 98, or Windows NT* 4,0 with service Pack 3 or later, 16 MB of RAM on Windows 95 and 
Windows 98, 24 MB of RAM for Windows NT (32 MB recommended) and Hard drive with at least 75 MB of 
available space. 

Mac Computers 

• Apple Power Macintosh computer, Apple System Software version 8.6 or later, 6 MB of RAM (12 MB 
recommended) and Hard Drive with at least 75 MB of available space. 

Other Hardware Requirements / Recommendations 

. Monitor - Size: 15" or larger (recommended), a)lor: 256 or higher (i,e.l6 bit), Saeen Area: 800 x 600 
(recommended 1024 x 768), Keyboard - American Standard 101 key, Pointing Devices - Mouse or Track 
ball, Local or Networked Laser Printer - Paper Size: 8 x 11 + Orientation: Landscape 

Recommended Software 

« Email program - communicate with aientSen/icesQIMTnetwork.com & Support@IMTnetwori<.com 

• Spread Sheet program - export data from IMT Reporting (Le. charts) 

Internet Connection 

• Via Modem: Dial-up 56K (minimum) 

• Via DSL / ISDN / T-1 = Local Area Network (recommended) 

Browser Check and Installation Internet Explorer (IE) 

• IMT Reporting is best viewed through Internet Explorer 5.0, available for both PCs and Madntosh 
computers. The system requirement for loading Explorer 5.0 is as follows: 

• NOTE: LE.4.0, will work with basic features 

Step 1 - Check your system for Internet Explorer 5.0, confirm the version you're running, 

• Start Explorer 

• Click on Help located on the menu bar 

• Click on About Internet Explorer and a new window will open 

• Verif/ the version number. 

• If the versions number is 5,0 or later, then go to Step 3. 

Step 2 - If the version number is less than 5.0, or If you do not have Explorer installed on your 
computer, then go to Miaosolf s web site and follow the upgrade or installation instructions, or contact your IT 
department to have Intemet Explore 5.0 Installed. 

< http://www.microsoft,com/windows/ie/default.htm > 

Step 3 - Configuring Internet Explorer 5,0 

• Start Explorer 

• Click on Tools located on the menu bar 

• Qick on Internet Options and a new window will open 

• Click on Settings for Temporary Intemet Files located on the General Tab 

• aick on Every visit to page located below Check for newer versions of stored pages 

• Click on OK 

• Click on Apply then OK on the Intemet Options window 

• Test your access by going to < http://wwwJMTnetwork,com/ > and logging onto the system by clicking 
Client Center, and enter username and password (case sensitive) to successfully log onto the system. 
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Administration 



OVERVIEW 

IMT Reporting has two main components: Admin and Reporting. Admin generally refers to the 
administration processes, such as assigning promotion keys to specific sources, campaigns and panels. 

What You Need to Get Started? 

• Authorize IMT to acx:ept data feeds weekly from your fulfillment house (FTP recommended). 

♦ Gather all documentation and materials normally required to prepare detailed reports: 

o Source Names (source ID) 

o Campaign: Names, Start Dates, Types and Expense detail 
o Panel: Names, Start Dates, Test T^Des and Package Types 
o Key: Mail Qty, List Names 



Data is not available until an order is received by your fuifiHment house and has activated the Keys; you need to be aware of 
NOTE: this timing if yoj want to assign keys. When keys are not active, you can set up the rest of the campaign so that when they 
do become active you can assign them and begin using IMT Reporting immediately. 



Develop a Strategy 

13 It is recommended that you map out how you will organize, define and name your sources, campaigns and panels 

=3 before using Admin. Organizing this before hand will make for consistent reporting. 

;3 While adding records, you will be required to input certain fields (i.e. Campaign Name). Other fields may be 

3 optional (i.e. Campaign Type), The definition of a campaign may also vary depending on the source of business 

^ or the reporting requirements. Your choice of optional fields to populate may depend on the source of business. 

B Generally, the more fields you populate, the richer your reporting capabilities. 

Familiarize yourself with IMT Reporting 

Before getting started, you might want to practice navigating the system. This will help you to better understand 
the database, and make administration of your campaigns easier and more intuitive. It is helpful to understand 
-| how IMT organizes information into hierarchical groups as follows: 

^5 1. GROUP (i.e. Company Division) 

:i 2, PRODUCT (i.e. Magazine Title or Product Name) 

3. SOURCE CATEGORY (i.e. DTP, etc) 

4. SOURCE (i,e. Inserts, etc) 

5. CAMPAIGN NAME (i.e, 2000-01) 

6. PANEL NAME (i,e, 01. Sub 12/$12) 

7. PROMOTION KEY (i.e. 41B2_12/01/2000) 

One-on-One Walk-Through of IMT Reporting 

If you want to see examples of campaigns that are already setup in the system, you might want to look at IMTs 
demo database. For a one-on-one walk-through of IMTs demo database, please request a demo usemame and 
password at: ClientServices@imtnetwork.com^ name the subject of your email: demo request or call us at 
415,352,2370. 
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Administration 



ACCESS 



Step - 1: Open your Browser and input IMT's URL 
(Internet Home Page address) (NOTE: once you are 
viewing the home page, right dick your mouse and 
select Create Shortcut): 



Step - 2: Qick Client Center to reach secure log in 
box: 



Step - 3: Input your Usemame & Password: 
(NOTE: case sensitive; i.e, a or A) 



Step - 4: Click on Administration to begin building 
and managing campaigns: 



Step - 5: Select Product Group (i.e. Business): 



Step - 6: Select Product (i.e. The New Economy): 



^ iMT Hetwoik - Microsoft lnteinet Explorer . 


iiii 




http://www.imbTetwork.com/ 










; Welcome to IMJ Reporting 





§ |The New Economy 
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Administration 



IMT Tool Bar Features 



integiaied Marketing Technoio^* Ific,'; 




Once you have accessed IMT Reporting, you will now be able to view the Tool Bar (located aaoss the top of the 
saeen). Before building campaigns, you should familiarize yourself with the Tool Bar features and understand 
how they will assist with the administration and reporting processes. 



Fast Find - Allows you to navigate the database using 
a drill-down tree. 

• Drill-down into Product Group, Product, 
Source Category, Source, Campaign, and Panel 
by dicklng on ► to open the next table below. 

• Open view of table by dicking table name 
(i.e. DTP to open tables in DTP) 



Search - Allows you to search for spedfic sources, 
campaigns and panels by group name and key words. 

• Select one Title / Product 

• Select Source Category 

• Select Source 

NOTE: the % will open the search parameters 

• Select Campaign - input before % 

• Select Panel - input before % 

• Select Break on Campaign - list of campaigns 



or 




Select Break on Panel - list of panels within a 
campaign 



Available Keys - Allows you to filter and search the 
available key list (List of all ''un-assigned" keys for the 
product you are accessing), 

• Start with position #1 - Source Code (i.e. 4 
= Insert Cards) 

• Click GO 

NOTE: Each position (1-10) will accept an 
alphanumeric entr/; use all 10 or a minimum of 1 to 
filter your search. 




frn^ 4 lB2_08/2 1/2000* 
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Administration 



IMT Tool Bar Features 
SETUP TABLES 



Chart of Setup Tables and associated database tables, to which they apply: 

• Create the tables shaded below prior to building campaigns 

« C = Corporate Setup Table: will assign across a group of pnxlucts 

• P = Product Setup Table: will assign across individual products 

In addition to allowing you to associate keys to sources, campaign and panels, IMT Reporting provides the ability 
to attach additional information to a source key/promotion key (i.e, user may want to associate specific list 
selections to direct mail source keys). 



SETUP TABLE 


DERNCTIOM 


EXAMPLE 


CAMPAIGN 
TABLE 


PANEL 
TABLE 


KEY 
TABLE 


C/P 


AutoAdmIn 
Parameters 


See the pages listed 


• Pages: 19 - 28 


0 


0 


0 


P 


Campaign StaUts: 


Define the activity of a 
Campaign 


• Active 

• Oosed 

• Pending 








P 


Campaign Type: 


A broad type dassification of a 
Campaign which is user 
defined and can differ t>etween 
sourres 


\ • "Winter-DM; ''^^ 
w Hotlihd\:y -f> 








p 


Expense Set: 


A set of expenses which can be 
applied to a Campaign, Panel, * 
or Key 


. 2000-01 DM 6x9 

Package Exp. 
• Triple Insert Exp. 




0 


0 


P 


List Category: 


A broad category of related 
iists 


• Home 
« Sports 






0 


P 


Ust Name: 


ID to define the Tist 


• Tattooing Weekly 

• Money Monthly 








P 


List Segment: 


A spedfic selection from a list 


Paid Subs 
• 3 Month Buyers 






0 


P 


Panel Package: 


Define the type/style of a 
package 


6x9 Control 
* #10 Sweeps 




0 


0 


P 


Panel Subtype: 


Further define another field for 
a Pane! 


• Sweepstakes 

• Newsstand 




0 




c 


Panel Test T^e: 


Define the type of test 


• Pries . - 

• Offer 




0 




C 


Panel T^>e: 


Define the type of Panel 


• Control 

• Test 




0 




C 


Revenue Set: 


Revenue over and above 
subscription revenue, applied 
to a Campaign, Pane!, or Key 


• Ust Rental 
Revenue 

• Advertising 
Revenue 


0 


0 


0 


p 


Sourx^^-Descnptjon: 


Define a specific channel of 
sale - 


.,^/ i^-^Diii$t|aail 
' • VcvHlenewais \ ''-H 




m\ 


0 


c 


Source ID 
Description: 


Allow you to define a source 
beyond the one character 
fulfillment source description. 
Descriptions are used In 
reporting. 


* D or 2 = Direct 
Mail 


0 


0 


0 


C/P 
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Administration 



IMT Tool Bar Features 
SETUP TABLES 



IntegratecT Marketing Toclinotogy. Inc. 



>*SEftRCH 



AVAILABLE KEYS 



SET UP TABLES 



Each product has unique features and the Setup Tables are used to define campaigns, panels, or keys with 
detailed information that will allow your reports to produce a more valuable result (stronger and easier to read). 



step - 1 Access Setup Tables 

• aick Setup Tables located on the IMT Tool Bar 
(NOTE: You can access setup tables at any point 
in the administration process, after you have 
selected a product; as shown in tool bar figure at 
the top of this page). 

Step - 2 Select the title / product and setup table you 
wish to edit When product is not selected, a prompt will 
appear. 



ACCESS SETUPTABLES g^! 



AutoAdmin Parameters 
Campaign Status 
Campaign Type 
Expense Set 
List Category 
List Name 
List Segment 
Panel Package 
Panel Sub Type 
Panel Test Type 
Panel Type 
Revenue Set 
Source Description 
Source ID Description 



IS" 



Step - 3 ADD new record(s) by diddng ADD button 
(located at the top of each Table). 

• Input your definition into the available field, 

• Submit and this will populate that Table so you 
can make a selection from the new r€Cord(s) 
when you build your campaign(s). 



NOTE: 



Qick on Change Product ID, this link will allow 
you to move from product to product while still 
being in the selected Setup Table. 
Qick on Return to Setup Table Selection 
Screen, this link will take you back to Step-2 



Step - 4 EDIT existing records by clicking EDIT button 
(located at the left of each Table definition that exists) 

• Input dianges 

• Submit 





© 1994 - 2000 Integrated Marketing Technology, Inc, 
www.imtnetwork.cOfn * ^ 1 5 . 3 S 2 . 2 3 7 0 



10 



Administration 



>y FAST FIND 



Building Campaigns 

STEP 1 - ADD SOURCE 



1. Select a Product Group, Product & Source 
Category (i.e. Business/The New Economy/DTP) 





Iritegmteci Marketing Technology, Iik. 



r AVAILABLE KEYS 



SEFUPTABIES 



Define Source(s) 

• Locate the IMT Tool Bar and dick on Setup 
Table (window #2 will open) 

• Select Source Description 

• Add or Edit per instructions on the previous 
page 10 

• Submit to enter and save your infomiation 

• Qose Setup Table (#2) window 




3. Add new Source(s) (return to main window #1) 

• Gick Add New 

• Select Source Name 

• Input a Source Indicator (the one digit 
alpha-numeric code that corresponds to the 
first position of the source key provided by the 
fulfillment house (i.e. 4 = Inserts or 0 = Direct 
Mail) 

• Submit to enter and save your information 





SUBMIT button - apply changes to the database. 
ADO button - add a record to the database 
EDIT button - edit a record in ttie database. 

RETURN / BACK to a previous saeen/page use (Pick on the underlined link and retum) 



NOTE: DELETING A SOURCE; you must contact IMT directiy via support@imtnetwork.com 
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Administration 



1. Select a Source (i.e. Inserts, etc) 



2. Add new Campaign(s) (Rg 3.10) 

. QickSi 

• Input Campaign Name (i.e. 2000-12) (NOTE: use 
year before month to better sort multiple 
campaigns) 

• Input Start Date (i.e. 12/1/00) 

• Input optional data: Campaign Type, Status, 
Expense Set, Revenue Set, Budgeted Gross 
Pet, Budgeted Volume 

• Submit to enter and save your information 

3. Copy feature: 

• Select the campaigns to Copy (you can choose 
more than one at a time to copy) with 0 at the left 
of the campaign name 



Select: 



button to duplicate campaign(s) and 



panel(s) associated with campaigns copied (your 
copies will appear at the top of liie campaign table 
(i.e. Copy 1 of 2000-12). Edit the copied campaign 
name (i.e. 2001-12)(NOTE: Campaign names are 
unique to each source name). 

"-^H Once you E5 the record(s) you wish to edit, 
dick the Edit button to go to the Edit saeen and 
make changes. 

Submit to enter and save your information 



BUILDING CAMPAIGNS 
STEP 2 - ADD OR COPY CAMPAIGNS 




tF73 2000-05 



Undeflnec 



12000-04 


4/1/2000 


. — , 

Und«fin«d 


Undefintc 


12000-03 


3/1/2000 


Und«ftn«d 


Undefinec 



TIPS: 



EDIT button - edit records in the database 

COPY button - copy the campaigns & panels (not keys). 

DELETE button - delete a campaign (and its assodated panels and keys) or panels and keys separately. 
RETURN / BACK to a previous s aeen/page u se ( Pick on the underlined link and retum) 



Pft£l'MlfS.^a£CTIOl 
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1, Select a Campaign (i,e, 2000-01) 



2, Add new Panel(£) 



Input Panel name (Le, Oantrol, Price test, etc-) 
Input Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, Revenue Set 
Submit to enter and save your infom^ation 



3. Copy feature: 

• Select the panels to Copy (you can choose more 
than one at a time to copy) with 0 at tiie left of 
the pane! name 



Select ^^"^P^^ l button to duplicate panel(s) 
(copies will appear at the bottom of the panel 
table (i.e. Copy 1 of 01. Sub). Edit the copied 
panel name (NOTE: Panel names are unique to 
each source name). 

Once you 0 the record(s) you wish to 
edit, dick the Edit button to go to the Edit saeen 
and make changes. 

Submit to enter and save your information 



Administration 



Building Campaigns 
STEP 3 - ADD OR COPY PANELS 

\ SELECT CAMPAIGN ^goSi* 



(SELECT CAMPAIGN 



2000-05 
2000-0^ 
2000-03 
2000-02 
2000-01 




PANEL NAME 



PANEL START 
DATE 



PANCL NAME 



PANEL OATC START I PANEL TYPE 



1 02. Bub - A 12/$ 12 



I 03. Sub - B 12/*12 



1 OS. Inflight - 12/* 1 2 



06. NS - 12/* 12 



j07. NS - 12/* 12 



ioa. N8' A 12/$ 12 



|09. MS - R 12/* 12 



I Copy 1 of Ol. Sub • 12/* 12 



I St»b«cHb*r j A 



I Sub*€Hb«r 



|SwbscHb«r (ft 

-3 r 

f Inflight i ft 



:H«wsst«n4 fft 



TIPS: 



EDIT button - edit records in the database 

* COPY button - copy the campaign & panels (not keys). 

• DELETE button - delete a campaign and its associated panels and keys. 
RETURN / BACK to a previous saeen/pa ge use (Qick on the underlined link and return) 
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Administration 



Building Campaigns 
STEP 4 -ASSIGN KEYS 



1. Select a Panei (i.e. Ol.Sub - 12/$12) 

2. Assign new Key(s) - Confirm the correct Panel in 
view to assign key(s) 

3, Filter Keys By Position 

• Input one or more of the 10 key position 
fields (i.e. 41B2_08/21/2000), use less fields 
to view wore keys in the available keys 
table) 

• aick Go to view the spedfic list of available 
keys within given range 

• Select the Keys you are assigning to the 
Panel 

• Select 0 at the left of each individual key 

• aick Select All to select all available keys in 
view 

• Qick Clear All to de-select ail available keys 
in view 

• Qick Assign Keys when your selections are 
complete (your selected keys will now be 
assigned / viewed in the Key Table in the 
selected Panei) 

4, When assigning Keys to more than one Panel 
within a campaign, select Change Panel and repeat 
steps above 



|01.Sub-12/$12 



SELECT PANEL 



01.Sub-12/$12 

02. Sub-A12/$12 

03, Sub-Bl2/$12 
04 Inflight -12/$1 2 

05, Inflight -12/$1 2 

06, NS-12/$12 

07, NS-12/$12 

08, NS-A12/$12 

09, NS-B12/$12 

. Sub - 12/^12 





NOTE: 



f=or more infomiation on assigning Insert Card Keys and using the Draw/Sale/Subtotal Flag fields, go to Page 29 
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Administration 



Edit Features 
GROUP EDIT AND MULTI-EDIT 



The Group Edit and Multi-Edit features in Admin allow the user to more easily edit campaigns, panels, or keys. 
For example: Make a universal change on all panels, use the Group Edit feature. Or, if there are several 
independent fields to change on each panel, you could use the Multi-Edit feature. 



Group Edit: 



Step - 1 Qick the 



button. This will bring up the group edit bar with the same 



headings as the columns in the campaign, panel or keys tables. To dose the Group Edit screen, dkk on 



Step - 2 Check the 0 next to the campaigns, panels, or keys you wish to edit. Or you can use 

^^^^^^^^^ - This button will select each row of data by placing a check mark (0) in all the 
white boxes. Qick it again and it will clear the selection. You can also use this button to toggle selected 

0/n. 



step - 3 In the Group Edit section at the top, make the change to the field(s) you wish to ^jt 



Group Edit 1 


IGNOATE 


CAMPAIGN TYPE 


CAMPAIGN STATUS 


EXPENSE SET 


REV 


ENUq 


e) j| (No Change) ^ | (No Change)^ 


(No Change) ^ 


|(No Change) 



Step - 4 Once you've made the change, click 



, You will see that the edits you 



requested are now reflected below in the records you chose to edit. 
Multi-Edit: 



Step - 1 Check the 0 next to any row(s) you wish to edit. Or you can use the - 
button described above. 



Step - 2 Select 



mi 



Page 1 - Records 1-5 of 5 

Return to Menu 



CAMPAIGN NAME 



CAMPAIGN START DATE 



CAMPAIGN TYPE 



CAMPAIGN 
STATUS 



MuItiEdit 



EX 



|2000-05 


|5/l/2000 


|2000F«1I 


SlActive 




Unde^ned 


|2000-04 


j4/1/2000 


|2000 Foil 


S jActrve 




Undefined 


|2000-03 


13/1/2000 


1 2000 Fell 




ll 


Undefined 


I2OOO-O2 


I2/I/2OOO 


1 2000 Foil 


EJ [Active 




Undefined 


jaooo-oi 


|l/l/2000 


|2000 Fa« 


^ {Active 




1 Undefined 



NOTE: 



The system allows you to select and edit up to 20 records at a time, however the actual Edit saeen will only show five 
of your selections at one time. Make the necessary changes, dick Submit Changes button, and this will save changes 
and take you to the next saeen to edit remaining selections. When all selections have been edited, the system will 
automatically take you back to the initial saeen. 
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Administration 




1. Select a Source (i.e. Inserts) 

2. Edit one Campaign 



• Select 0 existing campaign to edit, dick 1 

• Edit Campaign Name (i.e. 2000-01) (NOTE: use year 
t)efore month to better sort multiple campaigns) 

• Edit Start Date (i.e. 12/1/00) 

• Edit optional data: Campaign Type, Status, Expense 
Set, Revenue Se^ Budgeted Gross Pet, Budgeted 
Volume 

• Submit to enter and save your information 
3. Group Edit or Multi-Edit existing Campaign 



Option A: Qick 



aid; g^^^^^Ji^sg^^aajsgg^saassq button to auto select/un- 
seiect (0) campaigns to edit 
or 

Seled/unselect individually by clicking 0 at left of 
campaign name, confinm the campaigns to edit (as a 
group) with 0 at the left of the campaign name. Make 
your edit(s) in the open fields (Group Edit Bar above the 



Campaign Table). ^^^f«>M^^^^&^^m to enter 
and save your information. 

Option B: Multi-Edit feature: 

• Select the campaigns to edit with 0 at the left of the 
campaign name 

• Qick Edit button above campaign table to view 
campaign(s) to edit 

• Make your edtt(s) in the open fields associated with the 
campaign(s) to edit (NOTE: only 5 Campaigns are in view 
at one time, while using Multi-Edit) 

• aick Submit Changes button to save changes and take 
you to the next saeen to edit remaining selections. When 
all selections have been edited, the system will 
automatically take you back to the initial saeen. 



Edit Campaigns 
STEP 1 - EDIT CAMPAIGNS 






• EDIT button - edit records in the database 




« COPY button - copy the campaign & panels (not keys). 


TIPS: 


• DELETE button - delete a campaign and its assodated paneis and keys. 




♦ RETURN / BACK to a previous saeen/page use (Qick on the underlined link and return) 
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Administoation 



1. Select a Campaign (i.e. 2000-12) 

2. Edit Panel 

• Select EI existing Pane! to edit, dick i 

• Edit Panel name (i-e. Control, Price test, etc) 

• Edit Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, and Revenue Set 

• Submit to enter and save your information 

3. Group Edit or Multi-Edit existing Panel 
Option A: Group Edit feature: 

• Qick ^^fe^Q^^B^^^^j button below 



button to 




or 



auto seiect/un-select (0) panels to edit 

Select/unselect individually by clicking 0 at left 
of panel name 

Confirm the panels to edit (as a group) with 0 
at the left of the panel name 
Make your edtt(s) in the open fields (Group Edit 
Bar above the Panel Table) 

gn^gj- 3n(j save 

your information 



Option B: Multi-Edit feature: 

• Select the panels to edit with 0 at the left of 
the panel name 

• Qick Edit button above panel table to view 
panel(s) to edit 

• Make your edit(s) in the open fields associated 
with the panei(s) to edit (NOTE: only 5 Panels 
are in view at one time, while using Multi- 
Edit) 

• Qick Submit Changes button to save changes 
, and take you to the next saeen to edit 

remaining selections. When all selections have 
been edited, the system will automatically take 
you back to the initial screen. 



Edit Campaigns 
STEP 2 -EDIT PANELS 




S/'l/'SOOO 









s 
































W 


0-*. i->ii«ii.w«<« - ■ a/* i a 




















0«. M« - > I 2 










ay. M« > ta/* 1 x 




















0-*. MS • » s 2/« ix 




















PANEL NAME 



I 01, Sub - 12/$12 



i |subscHb«r |C 





* PANEL NAME | 


PANEL DATE £ 


1 Ol. Sub - 12/^12 




1 02. Sub - A 12/^12 




lo3, Sub-B 12/^12 




g 04. Inflight - 12/$ 12 





I 05, Inflight - 1 2/* 1 2 



TIPS: 



• EDIT button - edit records in the database 

• COPY button - copy the campaign & panels (not keys), 

• DELETE button - delete a campaign and its assodated panels and keys, 

• RETURN /JAa<toaprev^^^^ 
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Administration 



Edit Campaigns 
STEP 4 -EDIT KEYS 



1. Select a Panel (i.e. control) 

2. Edit one Key 



• Seiect 0 existing Key to edrt, dick 3 

• Edit Key name {i.e. Control, Price test, etc.) 

• Edit Optional Data: Panel Start Date, Panel 
Type, SubType, Test Type, Package, 
Expense Set, and Revenue Set 

• Submit to enter and save your information 

3. Group Editor Multi-Edit assigned Key 



Option - A: Group Edit feature 



Qick: 



button beiow 



or 



the Ch ange Panel/Selected Panel field 

Select ^^^^^H button to 
auto select/un-select (EJ) Keys to edit 

Select/unselect individually by diddng 0 at left 
of key name/code 

Confirm the keys to edit (as a group) with 0 at 
the left of the key name 
Make your edit(s) in the open fields (Group 
Edit Bar a^ve the Key Ta^le) 



I to enter and save 



your information 



Option - B: Multi-Edit feature: 

• Seiect the keys to edit (as a group or 
individually) with 0 at the left of the key name 

• aide Edit button above key table to view 
key(s) to edit 

• Make your edit(s) in the open fields associated 
with the key(s) to edit (NOTE: only 5 Panels 
are in view at one time, while performing 
Multi-Edit) 

• Gidc Submit Changes button to save 
changes and take you to the next saeen to 
edit remaining selections. When ail selections 
have been edited, the system will automatically 
take you back to the initial screen. 



|01.Sufa-12/$12 



SELECT PANEL 



01,Sub-12/$12 
02. Sub-A12/$12 
03.Sub-B12/$12 
0< Inflight- 12/$1 2 

05. inflight- 12/$1 2 

06. NS-12/$12 

07. NS-12/$12 

08. NS-A12/$12 

09. NS-B12/$12 



Sn^Ol. Sub - i2/^12 





•eCV DESCRXITXON 



il«f AIL QTV OVEFURXDE DRA1 



(No Choinge) 



|(tsJo ChoinQe) 



TIPS: 



EDIT button - edit records in the database 
COPY button - copy the campaign 8l panels (not keys). 
DELETE button - delete a campaign and its associated panels and keys, 
RETXIRN / B ACK to a ,^6^12^^ s^een/pg^ use (aide on the , ""fjg^ ' ^g d lj " k and return) 
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Administration 



AutoAdmin 
OVERVIEW 



IMT AutoAdmin has been created to minimize the amount of time spent on setting up campaigns in IMT 
Reporting. The idea behind AutoAdmin is that certain keys have a solid structure and therefore can be assigned 
based on the design of the key. Bills and Renewals are good examples of sources with a solid key structure. 
Fulfillment houses generally maintain uniformity across these two sources. 

IMT is able to look to the appropriate position in each key to pull relevant information from the key, and then 
designate an appropriate source, campaign and panel. AutoAdmin within IMT Reporting refers to the process 
whereby source keys are automatically assigned to Sources, Campaigns and Panels without nnanual administration 
(see Building Campaigns section). This is accomplished through a series of user-defined setup tables that serve as 
instructions for interpreting source keys. These tables serve as filters that provide the system witfi basic 
instruction. 

Does AutoAdmin replace manual administration? 

No, AutoAdmin Setup is an enhancement to IMT Reporting. If you prefer to setup your campaigns manually, then 
you can a)ntinue to do so. In fact tiiere are some sources where manually administration Is preferable or 
required, NOTE: Bills & Renewals generally have the same panel name (i.e. cxintrol) aaoss multiple campaigns. 

Does Auto Setup work for any source? 

Yes, AutoAdmin can be used for any source of business. However, in order for AutoAdmin to work most effectively 
a clearly defined source key logic must exist. As a minimum requirement, spedfic positions from a source key 
must distinguish the source and campaign. Billing and Renewals source, which often account for the highest 
number of source keys, typically utilize a standardized key logic that is well suited to AutoAdmin, For other 
sources of business that are not as standardized, manual administration of campaigns may be preferable or 
required. 

How do I get started? (Where is it located?) 

To get started, you will need to learn more about how the AutoAdmin Setup tables work and how to populate 
these tables correctiy. To access AutoAdmin click on the Setup Tables (located on the IMT Tool Bar), then 
select AutoAdmin from the drop down menu. 




Auto Setup 
Tables 




NOTE: 



Once these tables have been populated, the system will automatically assign keys to the con-ect source, campaign and panel 
as they come on the file. It is important, however, to check that keys are assigned correctly in order to ensure accuracy in 
reporting. There are checking reports available, whicti will aid In this process. For Bills, use the "Billing Source Key 
Assignment - Checking Report"; for Renewals, use the "Renewals Source Key Assignment - Checking Report". 
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^ Administrateon 

AutoAdmin 
SETUP 

HOW TABLES WORK 



There are four Auto Setup tables, which together control how source keys are associated to sources, campaigns 
and panels. 



TABLE 


PURPOSE 1 


REQUIRED?! 


Auto Setup Schemes 


Ihe AutD Setup Schemes table allows a user to create filters I 
through which source keys are passed. The primary I 
component of a scheme is called the setup m^sk A setup > 
mask identifies whk^l position(s) of a source key represent I 
the source^ campaign, panel or prior source. 1 


YES 


Campaign Name Definitions 


This Campaign Name Definition table provides a user the 
opportunity to convert campaign codes to names that are 
more descriptive. Campaign codes are based upon the , 
source key positions that represent the campaign. 


NO 


Renewal Prior Source Defmitions 


TOs table is only used for renewal sources, and only in cases \ 
when a source is split For example, if ail conversions source ^ 
keys begin with a source indicator "6", you may wish to split ■ 
out DTP and agent conversions separately based upon prior 
source. 


NO 


Panel Name Definitions 


This table is only used in conjunction with setup schemes 
that identify panel splits. If a panel split is identified In a 
setup scheme, then panel codes can be given more 
descriptive names by adding records to this table, and then 
applying the panel-naming scheme to a campaign in the 
campaign names definitions tat>!e. 


NO 



NOTE: 



Not all the Auto Setup tables need to be populated for the system to automaticalty assign keys to sources and campaigns. In 
fact, only the Auto Setup Schemes table is required for Auto Setup to woric; the other tables provide a means of controlling 
more precisely how campaigns and panels are named, or in the case of renewals prmde the ability to split a source. 




^trf^^^^ ^ Source |C«mpai9n|Campaton 
^irft;r^ V -sr^: ^ Category f Code fOesctiption 



I Campaign | Panel 
I Date I Scheme 



j^^^^^^ Blllloq |aXOO }oo Cr.diT P.riod AXOoje/l/2000 j 
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Administration 



autoAdmin 

HOW TABLES WORK TOGETHER 



The schematic below shows the sequence of checks ttiat Auto Setup makes in order to correctly associate source 
keys to sources, campaigns and panels. 



^1 




Check" 
AUTO-SETUP 

table 



If split ] 
reaewal source J 



:!lfotiier;than 
split reaewal source 



Check 

PRIOR SOURCE 
DEFINITIONS 
table for correct 

source identification 



I 



Check 
CAMPAIGN NAME 
DEFINITIONS 
table for correct 
campaign name 




If pand scheme 
specified 



Check 
PANEL SCHEME 
DEFINITIONS 
table for correct 
panel name 




If pand:^cfiem.e^\ 
not specmaa --w;^ 



System assigns key 
--^'default 
panel n^e 



System assigns key 
vcrrth user- defined 
pand name 
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AutoAdmin 
SOURCE KEY ANATOMY 



IMT Reporting will divide source keys into four broad categories (Source Category): 

• DTP (direct to publisher) 

• Renewal 

• Gift 

• Billing 

Depending on the fulfillment rampany, the source category, and IMTs summary procedures, source 
keys may have different fomiats. Below is a chart to help identify and interpret source keys based on 
fulfillment company. • . 



EDS / CENTROBE 



TYPE 


EXAMPLE 


DESCRIPTION 


OTP 


OSUA_20000124 


Position 1 = Source 

Positions 2-4 = Open 

Positions 6-13 = Date (yyyymmckj) 

NOTE: An asterisk (*) appended to a key 
indicates that the key was received without a 
select date specified. As a result, IMT 
appends the process date to the key for kl 
purposes. 


RENEWAL 


7AK1_6_526 


Position 1 = Source 
Position 2 = Issue or Package 
Position 3 = Issue or Package 
Position 4 = Effort 
Position 6 = Prior Source 
Position 7-9 - Expire 


GIFT 


2CL5_G_20001215 


Position 1 = Source 
Position 2-4 = Open 
Position 6 = Gift Identifier 
Position 8-15 = Date (yyyymmdd) 

NOTE: An asterisk (*) appended to a key 
indicates that the key was received without a 
select date specified. As a result, IMT 
appends the process date to the key for id 
purposes. 


BILUNG 


B52__990321„4_1A 


Position 1 = Source 
Position 2-3 = Bill key 
Position 5-10 = Date (yymmdd) 
Position 12 = Current Source 
Position 14 = Effort 
Position 15 = Package 
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Administration 

AutoAdmin 

SOURCE KEY ANATOMY - CONTINUED 



PALM COAST DATA 1 


TVDP 


PYAMPLE 

I'll 


DESCRIPTION 


DTP 


28M25A_1999 


Position 1 = Source 
Position 2-6 = Open 
Position 8-11 = Date (yyyy) 


RENEWAL 


3E9H01_1999 


Position 1 = Source 
Position 2 = Prior Source 
Position 3-4 = Issue 
Position 5 = Package 
Position 6 = Effort 


GIFT 


D9NC11_1999 


Position 1 = Source 
Position 2-6 = Open 
Position 8-11 = Date (yyyv) 


BILQNG 


B2_930„00 


Position 1 = Source 
Position 2 = Prior Source 
Position 4 Year (y) 
Positi'on 5-6 = Credit Period 
Position 8-9 = Effort 



CDS 1 


TYPE 


EXAMPLE 


DESCRIPTION 


DTP 


OP2F001„010199 


Position 1 = Source 
Positi'on 2-4 = Open 
Position 5-7 = Split 
Position 9-14 = Date (mmddyy) 


RENEWAL 


RU21000_010199 


Poation 1 = Source 

Position 2 = Issue 

Position 3 = Prior Source 

Position 4 = Effort 

Position 5-7 = Split 

Position 9-14 = Date (mmddyy) 


GIFT 


YTA1000_010199 


Position 1 = Source 
Position 2-4 = Open 
Position 5-7 = Split 
Position 9-14 = Date (mmddyy) 


BILUNG 


BP21000_010199 


Position 1 = Source 
Position 2 = Credit Period 
Position 3 = Current Source 
Position 4 = Effort 
Position 5-7 = Split 
Position 9-14 = Date (mmddyy) 
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Administration 



AotoAdmin Setup Schemes 



AutoAdmin Setup Schemes table tells the system what sources to look for to automatically setup campaigns* 
You define the criteria to identify and assign source keys to a campaign. The system will work even if this is the 
only table you setup. (However, to do proper naming of campaigns and splitting of panels, you should use all the 
tables* For example, if you only filled out this table, then your campaigns and panels would be named based on 
the fulfillment codes: Campaign = Expire 521, Panel = Panel A. . If you filled out the Campaign Name Definition 
table and Panel Schemes table, then you could have the system name them: Campaign = 2000-01, Panel = 
Control). 

The Setup Mask is the nwst important element of any Setup Scheme, The Setup Mask is simply a string of alpha 
characters used to identify the parts of a source key, IMT has created a simple set of characters to identify 
source, campaign, panel/split, and prior source (renewals only). By stringing these characters together to form a 
Setup Mask, you provide our system with all the information required to automatically identify and aeate 
campaigns. 



1 Setup Mask Legend I 


! Identifier 

1 


1 Description 


Examples | 


s 


Ipource 


|B = Biding 
|l = Renewals 


c 


IjCampaign, Expire or Credit 
ijPeriod 


1125 = Expire 125 (Jan-2000) 
|001 = Jan 2000 Expire 


p 


ijpadcage/Split 


jo = Renewal Control 
[l = Renewal Test 


z 


j|^or Source 


jo = Direct Mail 
to = Conversions 
1a = AFP 


X 


||>taceholder 


(Used to mark a position on a source tey that do^ NOT 
Identify Source, Campaign, Pand/Split or Prior/Cun^nt 
[Source 



Understanding how your source keys are constructed is a pre-requisite to aeating Auto Setup Schemes. SirK^ IMT will often 
NOTE: enhance source keys (in order to provide better reporting capabilities), you should familiarize yourself with IMTs source key 
Structure. 



Select 
Oate 
From 


Select 


Setup 


Expense 


Date To 


1 Mask 


Set 




l^^t' E»n[:^DTP Conversions 
^^^^^ »n>JDTP Conversions 



Ii/1/1998|12/31/2005|s«Pk«2kCCC 



fUndefined 



n/l/19S8|l2/31/2005;S«P«H2ZKCCC ^Undefined 
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AutoAdmin Setup Schemes 
CREATE NEW SOURCE 



L Select ADD NEW source 



2, Select a Source Name from drop down menu. 

3, Input Source Indicator (first position of source key, i.e. l=Renewals or E=Agent Conv) 

4, Type in Valid From and Valid To dates (should select a date far in future, this field may be used when 
you change first position of source, i.e. if you diange fulfillment houses), AutoAdmin looks at the select 
date on a key to determine if it fits the range. 

5, Create Setup Mask - The Setup Mask identifies what part of the source key Admin will look at to create 
a campaign. Each fulfillment house has a different source key structure and therefore a different Setup 
Mask. To create a Setup Mask, choose from one of the following schemes below. 




If you do fX)t indude a specific position for "P", panel, then and the system will automatically default each key into a panel 
called "Control". Otherwise it will create a panel based on the panel scheme defined in the Panel Name Definition tabte^ or 
aeate a pane! based on the fulfillment code in the key, i.e. Panel A, Panel 1, etc 



SAMPLE SETUP MASKS 



Since the Setup Mask is the most important component of a setup scheme, for reference here are some 
examples of setup masks by Fulfillment Company and source: 



1 EDS/Centrobe 1 




Source 


i Setup Mask I 


{Renewal (SIPE) 




i|SxPxx2xCCC 


iRenewal (SPIE) 




iiSPxxxZxCCC 


iRenewal (SIPE) - 


Doufaje^igit 


i^xPxxZZxCCC 


{RenewaJ (SPIE) - 


Double Digit 


iSPxxxZZxCCC 


{Billing 




iSCCxCCxxxxxZxxP 


tBilling -Double Digit 


ISCCxCCxxxxxZZxxP 


|DTP 




Spends on key structure 


iGrft 




jjDepends on key structure ■ 


Palm Coast Data I 




Source 


1 Setup Mask I 


Renewal 




tISZCCPxxCCCC 


jSilling 




;$ZxCCaPx 


|DTP^ 




j^pends on key structure 


iGift 




jjDepends on key structure 


1 CDS 




Source 


1 Setup Mask i 


Renewal 




^ISCZxPPPxxxxxCC 

iCC relates to effort select date not necessarily expire 
lyear) 


BiUing 




ISC^PPPxxxxxCC 


DTP 




[Depends on key stnjcture 


;<sift 




lOepends on key structure 
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CAMPAIGN NAME DEFINITION 



Campaign Name Definitions table allows you to define your campaigns based on the fulfillment codes and give 
them user-defined names. Naming your campaigns makes it easier to keep track of them and easier to do 
analysis. You can also define certain panel schemes for each campaign. Example: lef s say you have an expire 
campaign with which you conducted a test, then you may want to aeate a panel scheme that will split the expire 
(two panels) - control and test. This table provides the ability to choose a panel scheme that automatically 
creates control and test panels. 



If you already have prior campaigns setup in admin and want future source keys to be assigned to those campaigns, you still 
need to create a Campaign Name in this table. That campaign name must match the campaign and panel names exactly as 
they are already named in Admin for new keys to be con^y assigned to it Otherwise, it will create a new campaign. If 
this happens, a quick fix is to delete the old or new campaign that was created, and reassign it OKrectly in the Campaign 
Name Definition table so that the keys can be reassigned. Deleting a campaign places those source keys back in the 
available keys table to be reassigned. 



Create Campaign Names: 

1. Select ADD NEW to create the campaigns for Bills and Renewals that you want the system to 
automatically add to Admin. 

2. Type in a Campaign Code based on your "C" scheme in the setup mask (i.e. Centrobe Renewal CCC= 
520, or Palm Coast CCCCCC = 1A2001). 

3. Type in a Campaign Description name to identify your campaigns (i.e, "2000-01" for Renewal expires, 
or "99 BK 48" for Billing credit period). 

4. Select a Source Category from the drop down menu, 

5. Type in a Campaign Date (i.e. 1/1/2000 for a Jan expire) to assign. 

6. Select a Panel Scheme from the drop down menu (based on what is defined in the Panel Name 
Definition table). 

7. Submit to save ^ 







Bill Default 




:1998 BK03 



llSSB BK 04 



Bill Default 



U998 BK 05 



^'2/1/1998 



Bill Default 
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AutoAdmin 
PANEL NAME DEf=INniON 

Panel Name Definitions table is used to create your panel naming schemes. You can choose to identify all 
your panels as controls, or you can create a scheme for individual campaigns that may have tests going on and 
name them appropriately (i.e. control, price test, aeative test, etc). TTie schemes you setup can then be applied 
to the Campaign Name Definition table. 




If you already have prior campaigns setup in admin and want future source keys to be assigned to those campaigns, you sdll 
need to create a Campaign Name in this table. That campaign name must match the campaign and panel names exactly as 
they are already nanried in Adnoin for new keys to be axTKtfy assigned to Otherwise, it will create a new campaign. If 
this happens, a quick fix is to delete the old or new campaign that was aeated, and reassign it correctiy in the Campaign 
Name Definition table so that the keys can be reassigned. Ddeting a campaign places those source keys back in the 
available keys table to be reassigned. 



Create Panel Name Definitions: 

1 



Select ADD NEW to create a new panel scheme to define how campaign panels should be named 
and possibly split 

2. Type in a Panel Scheme name to define panel definition (i.e. Renewal Default, Jan 00 Test, 
Billing DM Test, etc), 

3. Type in the Package Code(s) from the Source Key (P) that apply to the scheme (you can list 
more than one package at a time, just separate with a comma). 

4. Type in the Panel Name you want to describe the panel for reporting (i.e. Control, Test 1, Price 
Test, Creative Test, etc.) 



Submit to save 




efiiiftiins^ 




^^^;%arrleil! Default 



_ - -:KWa:^:CreativeTest 
^ - . -i 5 IBJI I :'C re ati v e Te st 
j.; - ^- .^t^ni-.}C reativ«Test 
; EOrr r Email Test 

Mff Email Test 
COrT ' Email Test 
^ Ren Default 



1 Panel Codes 


Panel 
Name 


b,2,aaGAS.T,Q.CB,2.1.2,3,9,* 


Control 




lA 


Control Panel 


IB 


Test - Ack Retest 


|A.B.C.D,E,F,G.HJ,K.UM,N.P,<5,R.SXaV,W,X.Y,2 


Control 


^0,1.2.3,4,5,6.7.8,9.* 


Control 


P,M,U.G.J,S,T.Q,B,C,2, 1.2,3,9,* 


Control 





.A,D 
B,E 

P, M, A, D, G, J, S,T, Q, B, C, 2, 1 , 2, 3, 9 * 

K 

4 

A.B,D,E,G,J,K,Q,R,T,X 



(Control Panel 



JTest - 1st Eff Ack Creative* 
;Control 

Control panel 

Test - Email 

Control 
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AutoAdmin 

RENEWAL PFaOR SOURCE DEFINITIONS 

Using the Prior Source Definition Table 

In the case of some renewal sources, a user may wish to split keys into groups based on prior source. This can be 
accomplished by using the Prior Source Definition table. Common example might be taking a single conversion 
source and splitting it into two unique sources - DTP Conversions and Agent Conversions. The Prior Source 
Definition table provides a user the option of identif/ing which prior source codes are DTP versus Agent. If you 
have Z marked in your Setup Mask, then it will look to this table for more information on how to assign a key to 
the correct split source. 




If prior source is identified in the source scheme setup mask ("Z"), but there are no corresponding records in the Prior 
Source Definition table, then the system will NOT be able to auto assign keys. Conversely, if there are records in the Prior 
Source Definition table, but prior source has not been identified in a source scheme setup mask ("2"), then the system will 
NOT be able to property assign keys. 



Create Prior Source Definitions: 

1. Select ADD NEW to create a Prior Source Definition table. 

2. Select a Source Name from the drop down menu. 

3. Input Source Indicator (1st position of source key, i,e, l=Renewals or E=Agent Conv) 

4. Input Prior Source Indicator (you can list more than one source at a time, just separate with a 
comma). 

5. Input a Valid From and Valid To date that these prior source definitions are valid. 

6. Submit to save 
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Insert Card 
SETUP 

Reporting on N/S (Newsstand Sale) Insert cards can be based on either N/S Sales or N/S Draw, IMT allows 
the user this flexibility through the Mail Qty Override/Draw, Newsstand Sale, and Response based on Sale 
(Y) or Draw (N) fields. These three fields, and two others, can all be found at the Key Levels and are described 
below: 

At the Key level, you will have the foliowing fields to use: 

Mail Qty - This is the quantity that comes through from the ftjifillment house and is a non-editable field. Take 
note; with Insert Cards, the fulfillment houses may not always key in this information on file. When the data that 
comes through this field is missing or in some cases not accurate, you will need to use the Mail Qty 
Override / Draw field . 

Mail Qty Override/Draw - This is the field you will use to enter a subscriber distribution quantity or a 
newsstand draw quantity. Named Mail Qty Override/Draw because if you enter a number here, that 
number will ovenide any number that comes through the fulfillment house in the Mail Qty field and the expense 
set will look to calculate print costs off this number. If there is no number input here, it will then look to the 
Mail Qty field to calculate expense. 

Newsstand Sale - This is where you would enter a quantity for sell-through if you want to calculate your 
gross and net responses off this number, otherwise you can leave it blank. 

Response Based on Sale (Y), Draw (N) - Enter a Y if you want the reports to use the N/S Sale Qty for 
response analysis, enter an N if you want the report to use ttie Mail Qty Override Draw Qty for response 
analysis. The default is set to N. 

Subtotal Flag - This field is for reporting purposes. Generally, when you run a DTP report, you want to count all 
the mail quantities for each key in the total for that campaign (i.e. Direct Mail). However, with Insert Cards, the 
newsstand and subscription quantities for each card promoted should only be counted once in the campaign total, 
not once for each card. Enter and F or False if you do not want that key's mail quantity to be included in the 
subtotal. Enter a T or True if you do want that ke/s mail quantity to be included in the subtotal. The default is 
set to T. 
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Reporting 
HOW TO START 



Before ainning reports, you must organize your data using IMTs Adnnin application. When Admin is complete, 
youYe ready to view reports. Here are the steps to either create a new report, or run a saved report: 



STEP 1 - LOGON TO THE SYSTEM 

1. Go to httD://wwwJmtnetwQrk.com/ 

2. aick^Oient Center" 

3. Login with your usemame and password 

4. aide Reporting 

STEP 2 - CHOOSE NEW OR SAVED REPORT 



Create a ""NEW report, foUow these steps: 



STEP 3 - SELECT A PRODUCT (S) 

• Select One or More Products 
STEP 4 - SELECT A REPORT 

• Choose a REPORT CATEGORY 

• Choose a REPORT STYLE 
STEP 5 - NAME YOUR REPORT 

• Nanking your report is optional 

NOTC: Name your report in order to save it (other than 
Undefined). 



Tip: At this point you can run your report However, if you want 
to filter your report data, then you will need to make a data 
selection. 

STEP 6 - MAKE YOUR DATA SELECTION 
Selection options include: 
Sources 
Campaign Type 
Campaign 
Pane! Type 
Pane! Test Type 
Panel Name 
STEP 6 - RUN YOUR REPORT 



♦ To ain your report did< the RUN REPORT button 
STEP 7 - S AVE YOUR REPOR T (optional) 



Go back to the report saeen 
aick on the SAVE button 

Choose a Report Group (that has already been 
created) or Create a New Report Group 
Select a Division / Group 
Go and your report is now saved and stored by 
Division, Group and Report Group 



Run a '^SAVED'' report, follow these steps: 

STEP 3 - SELECT A DIVISION / GROUP 
STEP 4 - SELECT A PRODUCT 



STEP 5 - SELECT A REPORT GROUP 

# Qick RUN REPORT GROUP to run the all the reports 
within the specified group. 

* aide DELETE REPORT GROUP to delete all the reports 
within a specified group 

• Qick GO to select a report within a report group 



STEP 6 - SELECT A REPORT 

• Qick RUN REPORT to mn an individual report 

Qick DELETE REPORT to delete an individual report 
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Reporting 

HOW TO NAVIGATE 
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Reporting 
HOW TO READ 




REPORT CATEGORY 

New Bus res^Jiia-orJr: 



PRODUCT GROUP 




REPORT NAME M & PRODUCT 
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Agent 
OVERVIEW 

IMT provides a variety of different agent reports for tracking agent production. As is the case with all IMT 
reports, these reports provide drill-down capabilities, which allow users to simply double-click on a field to view 
the detail below it The standard fields on IMT agent reports Include: 

• Total Subs 
« Gross $ 

• Net$ 

• Remit o/o 

• Avg Term 
« Avg Price 

• Expenses 

• NPN 

• Rnwl % 

• Cancels 

• Reinstates 

• Net Activity 

For more infomiation about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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Agent 

FIELD DEFINITIONS 



FIELD 


DEFINmON A CALC METHOD 


TYPE 


^ COMMEOT 


1 Uval ^UU9 


Thp tnfal fii lanttfv nf rviiH and mpdit ^tsrriDtions 


Summarized 


The tulfliiment house provides gross Sub quantities. 


Gross $ 


The dofiar value of paid and aedit subscriptions. 


Summarized 


The fulfillment house provides gross Revenue 
values. 


Net$ 


The dollar value of paid and aedit subscriptions 
remitted to the publisher by the agent 


Summarized 


The fulfillment house provides net Revenue values* 


Remit % 


Net $ / Gross $ 


Calculated 




Avg Term 


Gross Copies / Total Subs 


Calculated 


Represents the average copies per subscription. 
The fulfillment house provides gross Copy 
quantities. 


Avg Price 


Gross $ / Total Subs 


Calculated 


Represents the average dollar value per 
subscription. 


Expenses 


NA 


NA 


Expenses are NOT applied to agent reports at this 
time. 


NPN 


(Net $ - Expenses) / Subs 


Calculated 


Represents the average net (remitted) value of 
subscriptions. Expenses are NOT included In NPN 
calculations at this time. 


Rnwl % 


Renewal Subs / Total Subs 


Calculated 


Renewal Subs for Agents are subscriptions that 
come in from an agent that match an odsting 
record on file. The fulfillnoent house provides 
quannues. 


Cancels 


The total quantity of cancelled subs. 


Summarized 


The fulfillment house provides cancel quantities. 
Cancels con-espond to cancellations received from 
an agent during a production period. Cancels do 
NOT con-espond with Total Subs during the same 
period. 


Reinstates 


The total quantity of reinstated subs. 


Summarized 


Reinstate quantities are provided by the fulfillment 
house. Reinstates correspond to cancellations 
received from an agent during a production period. 
Reinstates do NOT correspond with Total Subs 
during the san>e period. 


Net Activity 


Total Subs - Cancels + Reinstates 


Calculated 
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" " Agent 

aST OF AVAILABLE REPORTS 

Below is a complete list of agent (Other reports are placed here) reports broken down by subcategor/. 



REPORTS BY SUB-CATEGORIES 


SUB-CATEGORY DESCRIPTION | 


SUMMARY ANALYSIS 




• Publication by Source by Agent by Month 




• Publication by Agent 




Publication by Source Month 




♦ Publication by Source by Remit 




« Publication by Source by Agent 




• Agent by Publication 


Agent Summary reports offer the ability to monitor agent production by source, 


month and remit rate. 


• Publication by Source 




• OTHER REPORTS 




• Starts by Model Source 




• Starts by Source 




• Available Keys 




Assigned Keys 





© 1994 - 2000 Integrated Marketing Technology, Inc. 
www.imtnetwork.com • 4 1 5.3 5 2.23 70 



35 



Reporting 

BXVULHG 
OVERVIEW 

IMT provides a variety of different billing reports for analyzing the perfomnance of billing sources and 
campaigns. As is the case with all IMT reports, these reports provide drill-down capabilities, which allow users to 
simply double-dick on a field to view the detail below it. Any campaign for which keys have been assigned is 
viewable ttirough tfiese reports. The standard fields on IMT billing reports include: 

• Max Effort Qty 
« Bills Mailed 

• Total Payment 

• Payment % 

• Bills-Payment Ratio 

• Step-Up Qty 

• Step-Up % 

• Request Cancel Qty 

• Request Cancel *Vb 
« Total Revenue 

• Total Expense 

• NPN payment 

• Payment On Payment 

• Payment After Cancel 

• Indexing - Pay-Up%, NPN 

For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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Retorting 

BlLUNG 
FIELD DEFINITIONS 



HELD 


DEFINinON / CALC METHOD 


TYPE 


COMMENT 


Max Effort Qty 


Within a bi(i series the mail qty from the effort 
with the highest mailed quantity. 


Calculated 


Looks across all efforts to select the mawmum 
billing pool size vnthirx a tHiling series. 


BiHs Mailed 


The number of bills mailed for a partcuiar 
effort 


Summarized 


Bills Mailed quantities are generally provided by 
the fulfillment house. 


Total Paymt 


Represents the total number of payments. 


Sumnwrized 


The fulfillment house generally provides 
payments. 


Paymt % 


Total Paymt /Bills Mailed 
or 

Total Paymt / Max Effort Qty 


Calculated 


The fcasis for calculating Paymt % will vary 
depending on the level and order of groupings. 

« For individual efforts Bills Mailed is 
used, 

« For source, campaign, and panel 
subtotals. Max Effort Qty is used. 


Bills - PaVmt Ratio 


Bills Mailed /Total Paymt 


Calculated 


Represents the ratio of Bills Mailed to Total 
Payments, 


Step-Up Qty 


Step-ups are generally renewal orders made at 
the same time as a billing payment, usually in 
response to an offer on the billing effort 


Summarized 


The mlfillnnent house generally provides step- 
up quantities. 


Step-Up °/o 


Step^p Qty /Bills Mailed 
or 

Set-Up Qty / Max Effort Qty 


Calculated 


The basis for calculating Step-up % will vary 
depending on the level and orda* of groupings. 

• For individual efforts Bills Mailed is 
used. 

• For source, campaign, and panel 
subtotals, Max Effort Qty is used. 


Req Cnd 


Request Cancels are cancels made by a 
subscriber. 


Summarized 


The fulfillment house generally provides Req 
Cnd quantities. 


Req Cnd % 


Req Cnd / Bills Mailed 
or 

Req Cnd / Max Effort Qty 


Calculated 


The method used to alculate Req Cnd % will 
vary depending on the level and order of 
groupings 
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FIELD DEFINITIONS 



RfPORTlNG 
BILUNG 
CONTINUED 



FIELD 


OEFZNmON / CALC METHOD 


TYPE 


COMMENT 


Total Revenue 


Total payment dollars. 


Summarized 


The fulfillment house generally provides 
revenue quantities. 


Total Expenses 


Lettershop Costs-*- Postage In -i- Postage Out + 
Premium Costs + Print Costs + Subs Service 
-i-Other Costs 4- Billing Costs -i- Bad Pay Costs + 

USl i.A}Sl5 


Calculated 


Expenses are dependent on (1) the association 
of an Expense Set to a campaign, panel or key, 
and (2) the values and settngs that define an 
expense oe u 

Note: List Costs are the only expense item NOT 
reliant on an Expense Set List Cdsts are 
applied directly to a key, and are calculated 
using either the mail qty or merge/purge qty as 
a basis. 


NPN Payment 


(Net Revenue - Total Expense) / Total Paymt 


Calculated 


Represents the average revenue per net 
payment 


Pymt on Pymt 


A payment on payment is a second payment 
made on the same billing effort or series. 


Summarized 


The fulfillment house generally prowdes 
Payment On Payment quantities. 


Pymt After Cancel 


A payment after cancel is a payment made 
after a request cancel has been processed. 


Summarized 


The fulfillment house generally provides 
Payment After Cancel quantities. 


Indexes 
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Reporting 

BlUING 

UST OF AVAILABLE REPORTS 



Billing reports are grouped into subcategories, ranging from high-level summar/ analysis to low-level effort 
analysis. Below is a complete list of billing reports broken down by subcategory. 



REPORT SUB-CATEGORIES 


DESCRIPTION 


SUMMARY ANALYSIS 

• Source by Current Source 


Summary Analysis reports offer high-level views at the cunrent source 
levei. These reports are useful for comparing the overall performance of 
sources across aedit periods. 


CREDIT PERIOD ANALYSIS 

« Sourcs by Credit Period 

Source by Current Source by Credit Period 


Credit Period Analysis reports offer views at the credit period (campaign) 
leveL These reports are useful for evaluating billing perfomnance for a 
set of aedit periods over a period of time. 


PANEL ANALYSIS 

• Current Source by Effort by Panel 

• Current Source by Panel 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing arKi evaluating panels within aedit periods 
(campaigns), especially important when performing test panel analysis. 


EFFORT ANALYSIS 

Panel by Effort 

• Source by Current Source by Effort 

• Source by Credit Period by Effort 

• Source by Effort by Current Source 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of billing efforts for a group of 
aedit periods or sources, or within aedit periods over time. 


CHECKING REPORTS 

• Campaign Setup 

• Sourcekey Assignment 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of billing efforts for a group of 
aedit periods or sources, or within aedit periods over time. 
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Reporting 

DTP 
OVERVIEW 

IMT provides a variety of different DTP (Direct to Publisher) Reports for analyzing the performance of DTP 
sources and campaigns. As is the case with all IMT reports, these reports provide drill-down capabilities, which 
allow users to simply double-dick on a field to view the detail below it. Any campaign for which keys have been 
assigned is viewable through these reports. The standard fields on IMT DTP reports indude: 

• Mail Qty 

• Gross Subs 

• Gross Sub % 
« Net Subs 

• Net Sub % 

• Cash Sub % 

• Credit Sub % 

• Total Sub Payup % 

• Average Net Term 

• Average Net $/Sub 
« Net Sub $ 

• Total Expense 
« NPN Sub 

• Indexing - Grs%, Net NPN 

For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossary. 
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DTP 

FIELD DEFINmONS 



[ MfclD 


DEFXNinON / CALC METHOD 


TYPE 


^ COMMENT 


MallQty 


Represents the quantity of promotions sent to a 
group of subscribers. 


Summarized 


The fulfillment house typically provides mail Qty. 
There is an option within Admin to override the 
fulfillment house mail quantity witii an Ovenide 
Mail quanti'ty. Our formula will automatically use 
the Override Mail quantity if a value has been 
entered; otherwise we will use the mail quantity 
from the fulfillnient house. 


Gross Suhs 


Represents the number of paid and credit 
subscriptions sold. 


Summarized 


Gross subscription quantities are typically 
provided by the fuifillment 


Gross Sub % 


Gross Subs / Totai Mail Qty 


Calculated 


There are several ways users can influence the 
way Gross Sub % is caloilated; 

L If the user provides a Mail Qty 
Override quantity, tiien Mail Qty 
Override is used instead of the Mail 
Qty. 

2. If "Newsstand Sale Qty" has been 
entered at the key level and response 
based on Sale "V Draw *N' is set to 
^Y" then the Newsstand Sale qty is 
used instead of substitute tiie Mail Qty. 

3. In addition, there is an opti'on to affect 
tfie way Gn^ss Sub % is calculated for 
subtotal groupings. By default the 
system assumes ALL promotion keys 
will contribute to the total mail 
quantity, if the Subtotal Rag on a key 
is set to "FALSE" the mail qty for that 
key will not be involved in the total 
mail qty. Adjusting tfie subtotal flags is 
particulariy useful for Insert Card 
reporting. 


Net Subs 


Represents the number of paid subscriptions 
sold (cash plus paid aedit). 


Summarized 


Net subscription quantities are typically provkied 
by the fulfillment 


NetSubo/o 


Net Subs /Total Mail Qty 


Calculated 


There are several ways users can influence the 
way Net Sub % is calculated - see comments for 
Gross Sub 
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Reporting 



DTP 

FIELD DEFINITIONS - CONTINUED 



1 FIELD 


DEHNmON / CALC METHOD 


TYPE 


COMMENT 


Cash Sub % 


Cash Subs / Gross Subs 


Calculated 


Represents the number of Cash Subscriptions as 
a percentage of Qoss Subscriptions, Cash Subs 
are subscriptions received with money. Cash Sub 
quantitaes are generally provided by the 
fulfillnrient bouse. 


Credit Sub % 


Credit Subs / Gross Subs 


Calculated 


Represents the number of Credit Subs as a 
pci Let iLdyc VI urut» ouub. ueuit oUu quaiHJues 
are generally provided by the fiiifiilment house. 


Total Sub Payup «/o 


Net Subs /Gross Subs 


Calculated 


Net Subs indude both cash and paid oedt 


Avg Net Term 


Net Copies / Net Subs 


Calculated 


Represents the average number of copies per net 
subscription. The fulfillment house gener^ty 
provides gross Sub Cdpy quantities. 


Av9$/ Net Sub 


Net Revenue / Net Subs 


Calculated 


Net Revenue represents the dollar value for net 
subscriptions. Net Revenue is generally provided 
by fulfillment house. 


Net Sub $ 


Total Net Revenue 


Summarized 


Total Net Revenue is oenerallv nmvifip<i hv thp 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


Total Expenses 


Lettershop Costs+ Postage In + Postage Out + 
Premiunfi Costs + Print Costs + Subs Service 
+Other Costs + Billing Costs + Bad Pay Costs + 
List Costs 


Calculated 


Expenses are dependent on (1) the association 
of an Expense Set to a campaign, panel or key, 
and (2) the values and settings that define an 
Expense Set 

Note: List Costs are the only expense item NOT 
reliant on an Expense Set List Costs are applied 
directiy to a key, and are calculated using either 
the mail qty or merge/purge qty as a basis. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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Reporting 

DTP 

LIST OF AVAILABLE REPORTS 



DTP reports are grouped into subcategories, ranging from high-levei summar/ analysis to low-level list analysis. 
Below is a complete list of DTP reports broken down by subcategory. 



REPORT CATEGORY 


DESCRIPTION 


SUMMARY ANALYSIS 

* Source Category by Source 


Summary Analysis reports offer high-level views at the source level 
These reports are useful for comparing the overall performance of 
sources aaoss campaigns. 


CAMPAIGN ANALYSIS 

• Source by Campaign 

• Source by Campaign Type by Campaign 


Campaign Analysis reports offer views at the campaign level* These 
reports are useful for evaluating campaign either Individually or over a 
period of time. 


PANEL ANALYSIS 

• Campaign by Panel Type by Test Type 

• Campaign by Panel 

• Campaign by Panel Subtype 
Campaign by Panel Subtype by Panel 

• Campaign by Panel Test Type 

« Campaign by Panei Test Type by Panel 

• Campaign by Panel Type 

« Campaign by Panel Type by Pane! 

• Panel Type by Panel 

• Panel Type by Panel Subtype 


Pane! Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels witiiin campaigns, espedally 
important when performing test panel analysis. 


KEY ANALYSIS 

♦ Campaign by Panel by Key 


Key Analysis reports offer wews at the key level. These reports are 
useful for comparing and evaluating source keys and lists. 


LIST ANALYSIS 

• List by List Segment 

• List by List Segment by Campaign 

• ijst Category by ust 

List Category by List by List Segment 
List History (by List and Segment) 

• Campaign by List 

• Campaign by Panel by List 

• Campaign by Panel by Ust and Segment 
Campaign by Panel by Ust by List Segment 
List by Campaign 


Ust Analysis reports offer views at the key level, with a specific focus on 
lists. These reports are particulariy useful for evaluating the 
perfomfiance of list and list segments within a specific campaign, plus 
provide the ability to analyze tiie performance of list over time. 


PACKAGE ANALYSIS 

• Source by Panel Type by Package 


Package Analysis enables comparison of creative within a source. 


CROSS TITLE ANALYSIS 

• List by Title 

• Source by Campaign Month by Titfe 

• Source by Title 


Cross Titie Analysis offer views at the source and campaign level. These 
reports are specifically deigned to compare how ti'ties are performing 
within the same sources. 


CHECKING REPORTS 

• Campaign Setup 

• Sourcekey Assignment 


Cross Trtle Analysis offer views at the source and campaign level. These 
reports are spedfically designed to compare how tides are performing 
within the same sources. 


INTERNET 

• Campaign by Panel by Key 

♦ Campaign Type by Campaign 


Cross Title Analysis offer wiews at tiie source and campaign level. These 
reports are specifically designed to compare how tities are performing 
within the same sources. 
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Reporting 

Gift 
OVERVIEW 

IMT provides a variety of different gift reports for analyzing the performance of gift sources and campaigns. As 
is the case with all IMT reports, these reports provide drill-down capabilities, which allow users to simply double- 
dick on a field to view the detail below it Any campaign for which keys have been assigned is viewable through 
ti>ese reports. The standard fields on IMT gift reports include: 



• Mail Qty 

• Gross Orders 

• Gross Otxlers<Vb 

• Gross Subs 

• Gross Subs % 

• Total Net Subs 

• Net Sub % 

• Total Payup % 
« Cash Sub % 

• Credit Sub o/o 

• Avg Net Term 

• AvgNet$/Sub 

• Sub-Ord Ratio 
« Net Subs $ 

• NPN Sub 

• Indexing - GrOrds%, Gr Sub Vo, NPN 



For more information about field definitions, or how fields are calculated, please look to the table on the next 
page or refer to the glossar/. 
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Reporting 

Gift 

FIELD DEFINITIONS 



FIELD 


DEFINITION / CALC METHOD 


TYPE 


COMMENT 


MailQty 


Represents the quantity of promotions sent to 
a group of sut>sa1bef3. 


Summarized 


The fulfillment house typically provides mail 
Qty. There is an option within Admin to 
override the fulfiKment house mail quantity 
with an Override Mai! quantity. Our formula 
will automaticaily use the Ovenride Mail 
quantity if a value has been entered; otherwise 
we wil use the mail quantity from the 
fulfillment house. 


Gross Orders 


Represents the number of paid and aedit 
subsoiption orders (donor responses). An 
order may include more than one subscription 


Summarized 


Gross Order quantities are generally provided 
by the fulfillment house 


Gross Order % 


Gross Orders / Total Mail Quantity 


Calculated 


There are several ways users can influence the 
way Gross Sub % is calculated - see 
comments for Gross Sub % 


Gross Subs 


Represents the number of paid and credit 
subscriptions sold (donees and subscribing 
donors) 


Summarized 


Gross Sub quantities are general^ provided t)y 
the fulfillment house 


Gross Sub % 


Gross Subs / Total Mail Qty 


Calculated 


There are several ways users can influence the 
way Gross Sub % is calculated: 

1. If the user provides a Mail Qty 
Ovem'de quantity, then Mail Qty 
Override is used instead of the Mail 
Qty, 

2, In addition, there is an option to 
affect the way Gross Sub % is 
calculated for sutrtotal groupings. By 
default the system assumes All 
promotion keys will contribute to the 
total mail quantity, unless the 
Subtotal Rag on a key is set to 
"FALSE" the mail qty for that key will 
not be involved in the total mail qty. 
Adjusting the subtotal flags is 
partacuiariy useful for Insert Card 
reporting. 
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Reporting 

Gift 

HELD DEFINITIONS - CONTINUED 



1 FIELD 


DEFINmON / CALC METHOD 


TYPE 


COMMENT 


Total Net Subs 


Represents the number of paid subscriptions 
sold (cash plus paid credit). 


Summarized 


Net subscription quantities are typically 
provided by the fulfillment 


Net Sub % 


Net Subs /Total MailQty 


Calculated 


There are several ways users can influence the 
way Net Sub % is calculated - see comments 
for Gross Sub 


Total Payup % 


Net Subs /Gross Subs 


Calculated 


Net Subs indude both cash and paid cediL 


Cash Sub % 


Cash Subs / Gross Stihs 


Laiaiiateo 


Represents the number of Cash Subscriptions 
as a percentage of Gross Subscriptions, Cash 
Subs are subscriptions received with nx>ney. 
Cash Sub quantities are generally provided by 
the fulfillment house. 


Credit Sub % 


Credit Subs / Gross Subs 


Calculated 


Represents the number of Credit Subs as a 
percentage of Gross Subs. Credit Sub quantities 
are generally provided by the fulnllment house. 


Avg Net Term 


Net Copies /Net Subs 


Calculated 


Represents the average number of copies per 
Net subscription. The fulfillment house 
generally provides gross Sub Copy quantities. 


Avg Net$ / Sub 


Net Revenue / Net Subs 


Calculated 


Net Revenue represents the dollar value for Net 
subscriptions. Net Revenue is generally 
provided by fulfillment house. 


Sub-Ord Ratio 


Gross Sub / Gross Orders 


Calculated 


Represents the ratio of Gross Subs 
(donee+donor renewal order) to Gross Orders. 


Net Sub$ 


Total Net Revenue 


Summarized 


Total Net Revenue is generally provided by the 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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Reporting 



Gift 

LIST OF AVAILABLE REPORTS 

Gift reports are grouped into subcategories, ranging from high-level sumnnary analysis to low-level list analysis. 
Below is a connplete list of gift reports broken down by subcategory. 



1 REPORT CATEGORY 


DESCRIPnON 


SUMMARY ANALYSIS 

• Source Category by Source 


Summary Analysis reports offer high-level views at the source (evel, 
T?>ese reports are useful for comparing the overall performance of 
sources across campaigns. 


CAMPAIGN ANALYSIS 

• campaign Type by Campaign 

♦ Source by Campaign 


Campaign Analysis reports offer views at the campaign level. These 
reports are useful for evaluating campaign either individually or over a 
period of time. 


PANEL ANALYSIS 

• Campaign by Pane! 

• Campaign by Panel Subtype 

• Campaign by Panel Subtype by Panel 

• Campaign by Panel Type 

• Campaign by Panel Type by Panel 

• Campaign by Test Type 

• Campaign by Test Type by Panel 


Panel Analysis reports offer views at the pand level. These reports are 
useful for comparing and evaluating panels within campaigns, especially 
important when performing test pand analysis. 


EFFORT ANALYSIS 

• Source by Campaign by Effort 

* Source by Effort 
Campaign by Panel by Effort 
Source by Effort by Campaign 


Effort Analysis reports offer views at the effort level. These reports are 
useful for evaluating the performance of efforts within a particular 
campaign, or for a group of campaigns. 


KEY ANALYSIS 

• Campaign by Panel by List 

♦ Campaign by Panel by Key 


Key Analysis reports offer views at the key level. These reports are 
useful for comparing and evaluating source keys and lists. 


CROSS TITLE ANALYSIS 

♦ Source by Title 


Cross Title Analysis offer views at the source and campaign level. These 
reports are spedfically designed to compare how titles are perfbrming 
witfiin the same sources. 


CHECKING REPORTS 

• Campaign Setup 

• Sourcekey Assignment 
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. Reporting 

Renewal 
OVERVIEW 

IMT provides a variety of different renewal reports for analyzing the performance of renewal sources and 
campaigns. As is the case with all IMT reports, these reports provide drill-down capabilities, which allow users to 
simply double-dick on a field to view the detail below it Any campaign for which keys have been assigned is 
viewable through these reports. The standard fields on IMT renewal reports include: 

Est. Max Effort Qty 
Total Mail Qty 
Gross Subs 
Gross Sub % 
Net Subs 
Net Sub % 
Cash Sub % 
Credit Sub % 
Total Sub Payup % 
Avg Term 
Avg $/Sub 
Net Sub $ 
Expenses 
NPN sub 

Indexing - Grs %, Net %, NPN 



For more information about field definitions, or how fields are calculated, please look to ti)e table on the next 
page or refer to the glossary. 
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Renewal 








FIELD DEFINmONS 


FIELD > 


DEFINmON / CALC METHOD 


TYPE 


COMMENT 



Est Max Effort Qty 


The largest mail quantity of a prior source 
group and renewal series within an expire 
pod. 


Calculated 


IMT automatically calculates the mawmum 
effort by looking within an expire pool and 
finding the maximum mail quantity by prior 
source, regardless of the effort number. For 
example: 

Expire 380 

Prior Source A 
Effort 1 = 100 
Effort 2 = 90 
Max Effort = 100 

Prior Source B 
Effort 1 = 90 
Effort 2 = 100 
Max Effort = 100 
Total Max Effort = 200 


Total Mai! Qty 


Represents the quantity of promotions sent to 
a group of subscribers. 


Summarized 


The fulfillment house typically provides mail 
Qty, There Is an option within Admin to 
override the fulfillment house mail quantity 
with an Override Mail quantity, however this is 
generally not utilized for renewals. 


Gross Subs 


Represents the number of paid and aedit 
subscriptions sold. 


Summarized 


Gross subscription quantities are typically 
provided by the fulfillment 


Gross Sub % 


Gross Subs / Total Mail Qty 
or 

Gross Sub / Est Max Effort: Qty 


Calculated 


The basis for calculating Gross Sub % will vary 
depending on the level and order of groupings. 

• For Individual efforts Total Mail Qty is 
used, 

• For source, campaign, and panel 
subtotals. Est Max Effort Qty is used. 


Net Subs 


Represents the number of paid subscripbons 
sold (cash plus paid aedit). 


Summarized 


Net subscription quantities are typically 
provided by the fulfillment 
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Reporting 



Renewal 

RELD DEFINITIONS - CONTINUED 



1 FIELD 


DEFINinON/ CALC METHOD 


TYPE 


COMMENT 


Net Sub % 


Net Subs /Total MailQty 
or 

viKX. ouu / est* ridX CiTOn. Vd^r 


Calculated 


The basis for calculating Net Sub % will vary 
depending on the level and order of groupings, 

• For individual efforts Total Mail Qty is 
used. 

• For source, campaign, and panel 
subtotals, Est Max Effort Qty is used. 


Cash Sub % 


Cash Subs / Gross Subs 


Calculated 


Represents the number of Cash Subscriptions 
as a percentage of Gross Subscriptions. Cash 
Subs are subscriptions received with money. 
Cash Sub quantities are generally provided by 
the fulfillment house. 


Credit Sub % 


Credit Subs /Gross Subs 


Calculated 


Represents the number of QxesSt Subs as a 

iU3v^ \j\ LOO ^uu^ ucuii. duo QUonnues 
are generaliy provided by the fulfillment house. 


Total Sub Payup % 


Net Subs / Gross Subs 


Calculated 


Net Subs indude bc^ cash and paid credit 


AvgTerm 


Gross Copies / Gross Subs 


Calculated 


Represents the average number of copies per 
gross subscription. The fulfillment house 
generally provides gross Sub Copy quantities. 


Avg $ 1 Sub 


Gross Revenue / Gross Subs 


Calculated 


Gross Revenue represents the ddlar value for 
gross subscriptions. Gross Revenue is 
generaliy provided by fulfillment house. 


Net Sub $ 


Total Net Revenue 


Summarized 


Total Net Revenue is generally provided by the 
fulfillment house and represents the total dollar 
value of net subscriptions sold. 


Expenses 


Lettershop Costs+ Postage In + Postage Out 
+ Premium Costs + Print Costs + Subs Service 
+Other Costs + Blliing Costs + Bad Pay Costs 

+ use LOStS 


Calculated 


Expenses are deoendent on f the acavSatinn 
of an E)q>ense Set to a campaign, panel or key, 
and (2) the values and settings that define an 
Expense Set 

Note: List Costs are the only expense Item NOT 
reliant on an Expense Set List Costs are 
applied directly to a key, and are calculated 
uang either the mail qty or merge/purge qty as 
a ha^s. 


NPN Sub 


(Net Revenue - Total Expense) / Net Subs 


Calculated 


Represents the average profit per net 
subscription sold. 


Indexes 
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0^ 

Reporting 



Renewal 

LIST OF AVAILABLE REPORTS 

Renewal reports are grouped into subcategories, ranging from high-level summary analysis to low-level effort 
analysis. Below is a complete list of renewal reports broken down by subcategory. 



1 REPORT CATEGORY 


DESCRIPTION 


SUMMERY ANALYSIS 

Sconce Category by Prior Source 

• Source Categor/ fay Source 

• Source Category fay Source fay Prior Sourre 


Summar/ Analysis reports offer higf^^evel views at the source level. 
These reports are useful for comparing the overall performance 
source across expires (campaigns). 


EXPIRE ANALYSIS 

♦ Expire by Source 

♦ Source fay Expire by Prior Source 

♦ Source by Expire 


Campaign Analysis reports offer views at the expire level. These reports 
are useful for evaluating expires (campaigns) either individually or over 
a period of time. 


PANEL ANALYSIS 

• Source by Expire fay Effort by Pane! 

• Source by Expire fay Panel fay Effort 

• Source by Expire by Panel 

• Source by Expire fay Prior Source fay Panel 


Panel Analysis reports offer views at the panel level. These reports are 
useful for comparing and evaluating panels within expires (campai^), 

P^rwlAln/ imrv>rt^nt' u/hAfi rvw^/irmtn/Y ¥t>t^ nerval ^n^K^t**^ 
^isy^fuany iinyjuiKaUK witcii pcilUiTTlMty ICSl. ponei andiySiS. 


EFFORT ANALYSIS 

♦ Prior Source fay Effort 

• Source by Effort 

* Source by Effort by Prior Source 
« Source by Expire by Effort 

* Source by Prior Source by Effort 


Effort Analysts reports offer views at the effort level. These reports are 
useful for evaluating the perfomiance of efforts in an expire, or over 
time for a group of expires. 


TRENDING ANALYSIS 

♦ Source by Effort by Expire 

♦ Source by Prior Source by Expire 


Trending Analysis reports offer views at the effort and prior source 
level. These reports are useful for evaluating the perfomiance of ^fbrts 
and prior sources over time for a group of expires. 


CROSS TITLE ANALYSIS 

• .Prior Source by Titie 

• Title fay Prior Source 

• Source by Titie 

• Source by Group 


Cross Title Analysis offer views at the source and campaign level. These 
reports are specifically designed to compare how titles are perfonrong 
within the same sources. 


CHECKING REPORTS 

• Sourcekey Assignment 

• Campaign Setup 
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TERM 



DEFINITION 



Glossary 



EXAMPLES 



Available Keys 


Set of active Source Keys 
that have not yet been 
assigned to a Panel 


• See pages 8 & 14 


AvgNet$/Sub 


Net Revenue -r Net 
Subscriptions 


• $12.00 


Avg Net Term 


Net Copies -r Net 
Subscriptions 


• 12.0 


B ' 


Browser 


Application that allows you 
to view information on the 
internet. 


• Internet Explorer (IE) 


c — ' 


Campaign 


Mari<et*ng initiative 
consisting of one or more 
panels 


• 2000-01 nirprf Mail 

• 2000-01 Insert Cards 


Campaign Status 


Progress status of your 
campaign 


• Open 

• Qosed 

• Pending 


Campaign 


Broad type classification of 
a Campaign which is user 
defined and can differ 
between sources 


• Winter DM 

• Hotiine 


Company 


Corporation, Inc, LLC etc... 


♦ ABC Direct Mariceting Company 


Cash Sub % 


Cash Subscriptions ^ Gross 
Subsaiptions 


• 40% 


Control Panel 


Current offer / aeative 
used as the standard 
against which to test any 
new offer / creative 


• Control 


CPM 


Cost per 1000 (M) 


• $75.00 


CPU 


Cost per Unit 


• $1.50 


Credit Sub % 


Credit Subscriptions ^ Gross 
Subscriptions 


* 85.3% 
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TERM 



DEFINITION 



Glossary 



EXAMPLES 



Drill Down 


Data selection method in 
which you filter or 'drill' 
through your data by 
selecting spedfic aiteria 


• See page 8 

• Run a report and double dick on a Campaign Name 
and it will reveal the Panels within a Campaign, 
continue and you can drill down to the key 


Division 


Group of Products within a 
Company 


• Magazine Division 

• Book Division 


E ' 


Edit View Screen 


Saeen in which you edit or 
delete records in Admin 
tables 


• See pages 15 - 18 


Expense Set 


Set of expenses which can 
be applied to a Campaign, 
Panel or Key 


• 2000-01 DM 6x9 Package Expense 

• Triple Insert Expense 


Est Max Mail Qty 


Maximum quantity mailed 
between efforts within a 
Panel for all levels above 
effort 


• Renewal Reld Definitions - Page 49 


F ' • 


Fast Rnd 


Direct method to locate 
Sources, Campaigns and 
Panels within IMT Admin 


• See page 8 


Riter Keys 

^ 


Process of selecting spedfic 
Source Keys that you want 
to assiqn to a panel 


• See page 14 


G ~ ^ — ' 


Gross Subs 


Total quantity of subs, cash 
+ aedit 


* 1000 


Group 


Grouping of related 
products within a Division 


• Arts Group 

• Outdoor Group 


Group Edit 


Feature that allows user to 
edit groups of records at 
one time 


• See Pages 15 - 18 


Gross Sub % 


Gross subscriptions ^ Mai! 
Qty 


• 60% 


L 


Ust 


Source of list rental names . 


• Tattooing Weekly 

• Money Monthly 


List Category 


Broad category of related 
Usts 


• House Usts 

• Outside Usts 


Ust Segment 


Spedfic selection from a 
Ust 


• Paid Subscribers 

• 3 Month Buyers 


List Cost Factor 


Provides the ability to 
calculate list expenses by 
factoring a percentage 
higher (or lower) 


• If you have defined your actual list costs at $100/M, 
but you want your reports to reflect a list cost of 
$110/M, then would apply a factor 1.1 



© 1994 - 2000 Integrated Marketing Technology, Inc. 
www imtnetwork.com • 4 1 5.3 52.23 70 



53 



TERM 



M 



DEFINITION 



Glossary 



EXAMPLES 



MailQty 


Quantity of Packages 
mailed for a specific 
Campaign, Panel, or 
Promotion Key 


• 1,000,000 Control Panel 

• 15,000 Test Panel 1 


Multi-Edit 


Feature that allow user to 
edit one or more records at 
a time 


• See Page 15 - 18 


N ■ ' 


Net Sub$ 


Net subscription revenue 
(cash H- paid aedit 
subscriptions) for a 
Campaign, Panel, or 
Promotion Key 


• $12,220 


Net Sub % 


Net Subscriptions -r Mail 
Qty 


• 1.05% 


NPN Sub 


Net per Net Subscribers 


• (Net Sub Rev - Total Exp) ~ Net Subs = NPN Sub 


NPN Pymt 


Net Per Net Payment 


• (Total Rev - Total Exd^ ^ Total Pvmf = npn Pvmi- 


o ^ i 


Optional Effort ID 


Provides the ability to 
assign an effort sequence 
to keys. This is only valid 
for GIFT sources. 


• Alphanumeric ID 


p > 


Panel 


Sub-grouping within a 
Campaign 


• New Creative Panel 

• Savings Certificate 


Panel Type 


Set of related Panels 
typically used to distinguish 
Control Panels from Test 
Panels 


• Control 

• Test 

• Newsstand 


Panel Subtype 


Another field used to 
further define a set of 
related Panels 


• Sweepstakes 

• Bind-in 


Promotion Key 
- A.K.A- 
Source Key 
Data Key 
Document Key 


Alphanumeric code that 
labels the element(s) to be 
measured in a Campaign, 
Source Keys are originated 
at fuifiilment houses and 
standardized by IMT 


• 6KA2 0526 

• 41B2_08/21/2000 


Panel Test Type 


Reld used to define a set of 
related Panels by test 
method 


• Price 

• Offer 


Panel Package 


Defines your package type 


• 6x9 qreen 


Product Group 


Grouping of products within 
a Division 


• Magazines 

• Books 


Pymt on Pymt 


Duplicate payment 


• 


Pay After Cancel 


Payment received after 
subscription canceled 


• Sub sends a payment when sub has been stopped 
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TERM 



DEFINITION 



Glossary 



Request Cnd 


vaivj^ ouui»tj tutiri wno iidve 

requested their Subscription 
to be canceled 


• 100 


Request Cnd % 


Request Cnd -r Gross Subs 


• 30% 


Revenue Set 


Revenue over and above 
Subscription revenue, 
applied to a Campaign, 
Panel or Key 


• List Rental Revenue 

• Advertising Revenue 


s — — ' 


Setup Table 


Tables which are used to 
define Campaigns, Panels 
or Keys in more detail 
(optional fields) 

See pages 9-10 


• AutoAdmin Setup 

• Campaign Status 

• Campaign Type 

• Expense Set 

• List Category 

• List Name 

• List Segment 

• Panel Package 

• Panel Sub Type 

• Panel Test Type 

• Panel Type 

• Revenue Set 

• Source Description 

• Prior/Current Source Description 


Source 


Spedfic channel of sale 


• Direct Mail 

• Renewals 


Source Category 


Grouping of Sources 
(defined by IMT) 


• Agents 

• Billing 

• DTP 

• Gifts 

• Renewals 


Sub Value 


Dollar value of a sale of a 
Product or service for a 
spedfic time period 


• $14,95/1 Year 

• $z4,u0 / 2 Year 


Step Up Qty 


Renewal at Birth or 
Duplicate Payment 


♦ 50 orders 


Step Up % 


Step Up Quantity ^Bills 
Mailed 


. 5% 


Subscription 


Sale of a Product or service 
for a spedfic time period 


• Monthly paying customer/member 


Subtotal Flag 


Used as a marker for 
calculating the rhail quantity 
for subtotal. If the subtotal 
fiag is set to False, then 
that key's mail quantity will 
NOT be included in 
subtotals 


• Used monthly for Insert Cards 


Subtype 


Same as Panel Type 


• See Panel Type 


Sub - Ord Ratio 


Subscriptions (donees) / 
Orders (donor) Ratio 


• Gross Sub -r Gross Orders = Sub-Ord Ratio 
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TERM DEFINmON EXAMPLES 



T 



Term Value 


Number of issues sold 
for a specific subsaiption 
sale 


♦ 12 Issues / 1 Year 

• 24 Issues / 2 Years 


Test Panel 


iNcW oucr / LlCcaUVC 

tested against control 


• Smith 6x11, 14/$35.00 12/23/99 


Total Rev 


Total Revenue on 


• $2,200 


Total Exp 


Total cost of a number of 
individual expense items 


• Lettershop + Printing + Postage Out + Postage 
In + Premium + Bad Pay + Billing + Subs 
Service + Expenses Other + List Expense = Total 
Exp 


Total Net Subs 


Gross Subs that have 
paid, includes, Cash and 
Paid Credit Subscriptions 


• 50% cash 

• 50% paid aedit 

• 75% := Total Net Subs 


Total Sub Pay up % 


Net Subs ^ Gross Subs 


* 50% 
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Products & Services 



Successful companies understand that knowing their customers, responding to their needs, and capitalizing on 
market share is the key to success. It's a belief that we share at IMT, because we know that ""integrated 
marketing information is powerful". With a focus on the bottom line, our cutting-edge systems are used by some 
of the most progressive subscription-based companies today. 

IMT Reporting 

Provides highly segmented, clearly defined marketing analysis at almost any level - from source channel to 
campaign to list - regardless of the database size. 

IMT Modeling 

A sophisticated tool that businesses use to forecast trends and play what-if scenarios, with an emphasis on 
lifetime customer value. 

Consulting Services 

Services range from database design, business forecasting, retention program development, to strategic 
operations analysis. 
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Report Samples 



• AGENT 

• BILLING 

• DTP 

• GIFT 

• RENEWAL 



o 
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